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Introducción 


El gran éxito alcanzado por los ordenadores personales ha supuesto 
que BASIC sea el lenguaje de programación más difundido actualmente. 
Lamentablemente cada fabricante ha ampliado las instrucciones básicas 
por su cuenta, de tal manera que hoy en día nos podemos encontrar con un 
gran número de versiones diferentes de BASIC, todas ellas más o menos 
confortablemente desarrolladas. 

Todos estos dialectos BASIC que circulan por los distintos ordenadores 
difieren muy poco. Las instrucciones básicas suelen ser similares, sin 
embargo, es díficil introducir en una computadora Á un programa elaborado 
en una computadora B. 

Precisamente el programador que lo hace por hobby esta interesado en 
analizar programas ajenos para aprender y mantener el interés. Esto solo 
puede conseguirse, si se conocen los diversos dialectos de BASIC. 
Este libro pretende ayudar a entender programas ajenos no escritos en la 
versión propia de BASIC. Explica que instrucciones implican el mismo 
efecto y donde aparecen pequeñas y grandes diferencias. 

Uno que conozca las divergencias de los dialectos BASIC será capaz de 
programar de tal forma que los programas se puedan utilizar en varios 
modelos de ordenadores. En este libro se explica lo que debe tenerse en 
cuenta, qué instrucciones se utilizan en general y cuáles sólo son 
apropiadas en determinados modelos de ordenadores. 

de ordenadores. 

Este libro pretende satisfacer tres objetivos: está pensado para interesados 
en ordenadores, que no utilicen la programación como herramienta de 
trabajo, sino que disfruten resolviendo problemas y agradezcan cualquier 
nueva motivación. Sirve también para programadores que deseen 
publicar o intercambiar programas. A ellos se les muestran las formas de 
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trabajo de otros ordenadores, para que puedan aplicar y tener en cuenta 
estos conocimientos al desarrollar sus propios programas. Por último, 
puede ser de ayuda para los lectores que tengan la idea de adquirir un 
ordenador para uso personal y deseen informarse sobre las diversas 
posibilidades que ofrece cada tipo de sistema en la programación. 
Primero comentaremos las versiones de BASIC que se utilizan principal- 
mente en computadoras de uso doméstico y en colegios, que se han 
introducido ya en nuestros mercados. Las indicaciones principales de los 
primeros capítulos son sin embargo válidas para todos los dialectos 
del BASIC. Más detalladamente se comentan las particularidades de las 
versiones de BASIC que se utilizan en los ordenadores Apple, Commmodore, 
Genie, Sinclair y TRS 80. 

Para no ampliar en demasía el contenido de este libro, hemos prescindido 
del comentario detallado de los lenguajes máquina de las diversas 
computadoras, tampoco se puede entrar con excesivo detalle en rutinas de 
intérpretes. Lo mismo vale para la utilización de comandos de sonido, 
gráficos y colores. En este aspecto existen tantas diferencias que se hacen 
casi inintelegibles los programas, si no se dispone del ordenador 
original. 

Mostramos con gran minuciosidad la forma de proceder para analizar y 
comprender programas ajenos. Posteriormente se detallan con ejemplos 
particulares los métodos de análisis del programa. 

El último capítulo se ocupa del problema de la conversión de programas en 
el ordenador propio, escritos para una versión diferente de BASIC. 
Se presupone que el lector domina el manejo de su ordenador. 

El libro no desea ni puede sustituir el correspondiente manual del 
usuario, sino que pretende despertar la comprensión para trabajar en otros 
ordenadores. 

Los programas ejemplo INSTRUCTOR DE CONDUCIR, BALONES, 
DIECISIETE Y CUATRO Y LAGARTIJA, se han extraído con el 
amable agradecimiento del autor del libro "Juegos de ordenador y de azar 
programados en BASIC", de Ruedeger Baumann, publicado por la 
editorial Vogel, Wuerzburg. 
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BASIC tiene muchos dialectos 


Cuando entre 1962 y 1964 John Kemeny y Thomas Kurtz crearon en el 
Dartmouth College een U. S. A. el lenguaje de programación 
BASIC, ni ellos mismos podían imaginar el significado 
que supondría al cabo de pocos años. BASIC, abreviatura de 
Beginners All-purpose  Symbolic Instruction Code, se ideó en 
principio como lenguaje de programación de fácil aprendizaje para 
resolver problemas técnico-científicos. Y hoy podemos asegurar que el 
objetivo se ha logrado. 

Inicialmente el BASIC se utilizó en el servicio Time-sharing, es decir 
cuando trabajaban varios usuarios compartiendo un ordenador principal. 
Se trataba de resolver problemas matemáticos para los cuales la 
arquitectura de un lenguaje semejante al de FORTR A N O 
A LGOL, resultaba idónea. Con el tiempo BASIC se mostró 
como un lenguaje apto para mayor cantidad de aplicaciones y no solo para 
resolver algoritmos matemáticos. Y asi se fueron añadiendo nuevos 
elementos de lenguaje. Lamentablemente no se respetó ningún criterio de 
unificación por parte de los fabricantes de ordenadores en los comandos 
adicionales. De esta forma nos encontramos actualmente con un gran 
número de versiones diferentes de BASIC. 


1.1 Versiones más corrientes de BASIC 


Cuandoseproyectaronlosprimerosordenadorespara uso personalo doméstico 
en los Estados Unidos, se necesitaba un lenguaje fácil de aprender y con 
pocos medios técnicos para su realización. Prácticamente todos los 
fabricantes de ordenadores personales adoptaron el BASIC, ya que un 
intérprete de BASIC puede comenzar a trabajar con una memoria de unos 
cuantos miles de Bytes. 

Pero en aquellos tiempos el almacenamiento de memoria todavía resultaba 
costoso y las versiones de BASIC que funcionaban en 
microcomputadoras eran dialectos reducidos de versiones conocidas. 
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Se conformaban con una serie de operadores matemáticos simples, en los que 
sólo se incluían números enteros dentro de un campo limitado, y asi se 
formaron las distintas versiones de INTEGER-BASIC. En ellas ya 
aparecían comandos para el tratamiento de cadenas de caracteres, que no 
existían originalmente. Pero en general se trata de versiones BASIC, 
denominadas asimismo  TINY-BASIC, lenguajes primitivos y que 
actualmente no tienen ninguna importancia, razón por la cual 
tampoco se han incluído en este trabajo. 

Las restantes versiones mejoradas trabajan con operadores de coma 
flotante, aunque no se menciona enel nombre. Hoy también se necesita la 
posibilidad de un buen tratamiento de cadenas de caracteres y para ello 
se necesitan unos comandos exclusivos para el cálculo científico, asi 


Comandos Comandos Comandos específicos 
adicionales desaparecidos del tipo de ordenador 


pl 


| 
| 
l 
| 
| 
l 


No, 


Dartmouth-BASIC 


Ñ | - TypA TypB TypC 


Comandos de comandos Comandos Lomandos Extracción de comandos 
string gráficos sonido Colores Diversos ordenadores 


SOPuRWwOo) 
00S 3p seu 


e E e 
Es) 


Fig. 1.1 Los elementos del lenguaje BASIC se han desarrollado como un 
río. Debido a las muchas afluencias se fue formando de un riahuelo una 
corriente. De ella extrajo cada fabricante lo que mas le interesara. 
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por ejemplo en el trabajo con matrices, no se encuentra disponible en todas 
las versiones. 

Pero no hemos acabado con las diferenciación de los dialectos de BASIC. Ya 
con la realización de gráficos utilizando ordenadores de mesa aumenta 
la profusión de comandos creados por el fabricante. Y se llega a límites 
insospechados si la computadora tiene la capacidad de generar sonidos. Es 
practicamente imposible coincidir en los efectos de los comandos. 


1.2 Loque (casi) siempre es igual 


Todos las versiones de BASIC trabajan con un intérprete que traduce 
los comandos de BASIC al lenguaje máquina en el transcurso del 
programa. Esto no descarta la posibilidad de tener para las mismas 
versiones compiladores que realicen la traducción independientemente 
del programa y produzcan un programa en lenguaje máquina. 

En todas las versiones de BASIC se trabaja principalmente en diálogo con el 
usuario. Esto significa que el programa de operaciones, que maneja 
la pantalla y el teclado, se encuentra directamente relacionado con 
el programa de traducción, que convierte los comandos en BASIC al 
lenguaje máquina. Existe la operación directa a través de instrucciones y 
por otro lado esta el programa operacional. En la primera se visualiza en la 
pantalla el valor de cada tecla y sin embargo en la segunda se ejecuta un 
programa almacenado en la memoria. Según el dialecto pueden ejecutarse 
mediante comandos en modalidad directa una serie de instrucciones de 
programa. En modalidad directa aparecen los valores de cada tecla primeroen 
la pantalla y el ordenador los acepta recién al pulsar la tecla RETURN. En 
modalidad programa se ejecuta el programa residente en memoria. Las 
instrucciones de programa deben ir precedidos de número de línea. Los 
números de línea, normalmente de 1 hasta 65 536, los elige el programador 
libremente, y el intérprete opera con ellos en orden ascendente. 

Todas las entradas y salidas de números se realizan en sistema decimal. La 
conversión a sistema binario, con el que se trabaja generalmente, la 
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realiza el intérprete automáticamente. 

El programador no tiene que ocuparse de las direcciones de memoria. La 
administración de memoria es dinámica según la necesidad. No es 
necesaria una declaración para las variables, pero tampoco está prohibido. 
Siémpre existen en BASIC uno o más comandos que solicitan la introducción 
de un valor para que posteriormente pueda proseguir el programa. 

Si durante el transcurso del programa el intérprete encuentra algún error 
de. sintaxis, suspende la ejecución del programa, a no ser, que esta 
interrupción se impida con otro comando especial. En la pantalla se 
visualiza el tipo de error y si es posible también el lugar donde ha 
ocurrido. 

También se pueden incluir adicionalmente enel programa los comentarios 
que se deseen sin que el intérprete los lea. 

La mayoría de versiones de BASIC reconocen instrucciones sencillas con 
las que se almacena un programa en un medio externo. También son 
habituales los comandos de impresora, pero no coinciden. 


1.3 Diferencias pequeñas, mayores y muy grandes 


Las primeras diferencias pero pequeñas ya aparecen en el manejo. Casi 
ningun teclado coincide con otro. Exceptuando las pequeñas divergencias en 
la disposición de las teclas según se tenga el modelo americano o el 
castellano, son las teclas de funciones para desplazar el cursor, para 
interrumpir el programa y para el retroceso, las que implican una 
utilización diferenciada de las distintas versiones de BASIC. 

Aún cuando los comandos básicos de casi todas las versiones son 
similares, existen pequeñas diferencias, normalmente en relación con los 
caracteres especiales del teclado y que difieren eventualmente en su 
interpretación. Esto también es válido para la barra de espacios, 
almacenadocomocarácter especial. Existen versiones que permiten insertar 
todos los espacios que se deseen, mientras que otras se evalúa un espacio 
mal colocado como error de sintaxis. 
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Algo semejante ocurre con el uso de las mayúsculas y las minúsculas. Si 
el teclado permite ambas, entonces también las reconoce para variables 
y comandos. lamentablemente existen versiones en las que solamente se 
puede utilizar una forma de escritura. 

Existen también diferencias al presentar resultados de cálculos con 
decimales y a veces incluso en método de redondeo. Por transformaciones 
sucesivas pueden aparecer errores dde redondeo. Por eso algunas nuevas 
versiones de BASIC trabajan con números BCD (Binary  Coded 
Decimal) en lugar de hacerlo con el sistema binario. No todas “las 
versiones contienen las instrucciones de BASIC para el tratamiento de 
matrices. 

La cantidad y disposición de los nombres de variables permitidos es 
semejante en la mayoría de versiones de BASIC, aunque no son siempre 
las mismas. Lo mismo sucede con las prescripciones de dimensionado y 
de reserva. 

Es mas difícil valorar las divergencias entre las distintas 
versiones cuando estas no contienen en la lista de comandos los 
comandos habituales o utiliza a su vez comandos diferentes de los 
comunes. A veces diferentes palabras en distintos dialectos tienen un 
mismo efecto. Esto ocurre especialmente con los comandos de modificación 
de cadenas de caracteres y en la utilización de la pantalla. 

Existe muy poca estandarización en el uso de los caracteres de 
dirección, que en parte se encuentran reunidos en el código ASCII 
como caracteres no imprimibles. Algunas versiones de BASIC no 
obstante permiten escribirlas o  imprimirlas utilizando otros 
simbolos de representación. 

El BASIC se diferencia completamente cuando además de los 
caracteres ASCII imprimibles contiene caracteres gráficos. En 
algunas versiones nos llegamos a encontrar con un código de pantalla que se 
aparta completamente del código ASCII. 

Junto a las instrucciones especiales de gráficos, color y sonido 
es en el aspecto de los comandos que utilizan las rutinas del 
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lenguaje máquina donde ya casi no se pueden comparar las diversas 
versiones. 

La utilización de los periféricos se encuentra regulada de 
diferente forma en cada versión, relacionado con las diversas salidas 
de hardware para estos equipos. Las mayores discrepancias aparecen en los 
distintos dialectos cuando se utilizan discos para el tratamiento de 
datos, ya que el efecto de comandos similares sobre distintos sistemas 
operativos en disco puede ser muy diferente. 


1.4 Diferentes tipos de intérprete 


En general el programador no necesita conocer como trabaja su intérprete, 
es decir, como transforma las sentencias BASIC en comandos de lenguaje 
máquina, excepto que utilice en el programa instrucciones de lenguaje 
máquina. Lamentablemente existen versiones de BASIC que no reconocen 
comandos habituales de BASIC habituales. Como sustitucion se aconseja una 
operación directa de las celdas de memoria usando PEEK y POKE. El 
intérprete debe estar diseñado de tal forma que parte de sus instrucciones 
máquina se encuentren copiadas en la memoria de trabajo, para que el 
usuario pueda hacer uso de ella. 

Es evidente que en la aplicación del mismo microprocesador como unidad 
central permite numerosas posibilidades de variación. De esta forma 
es muy difícil convertir programas que utilizan mucho la memoria. No se 
pueden hacer funcionar en otras computadoras. 

Los ordenadores de mesa trabajan frecuentemente con microprocesadores del 
tipo Z 80 y 65xx. No sólo tienen una línea de instrucciones distinta en 
el lenguaje máquina, sino que necesitan de un método distinto en el 
tratamiento de ficheros. Por ello operan los ordenadores que utilizan 
estos operadores de manera diferente. Esto se ha de tener en cuenta 
cuando se desea llegar al lenguaje máquina. 

Mas diferencias aparecen en el manejo de las palabras de instrucciones 
del BASIC. A menudo se almacenan de forma reducida en un byte. Para ello 
se emplean distintas codificaciones también denominados TOKENS. En 
algunas ocasiones se hace uso de códigos ¡intermedios en el 
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almacenamiento de sentencias, con lo que se consigue un proceso de 
programa mas rápido. 

Esto significa que distintos intérpretes BASIC realizan la función del 
programa de distintas formas. Esto supondrá diferencias en los tiempos 
de recorrido del programa. 

Finalmente se debe mencionar que existen intérpretes confortables y 
menos confortables, agradables y menos agradables para el usuario. 
Principalmente no depende de la extensión, de la necesidad de memoria del 
intérprete, pero por norma general tendrá más capacidad uno que utilice 12 
Kbyte que otro con únicamente 4 Kbyte. 


1.5 Gestiones y estandarización 


No han faltado gestiones durante los últimos años para normalizar los 
comandos del lenguaje de programación BASICo por lo menos conseguir un 
juego de instrucciones estándard. El que mas lejos ha llegado ha sido el 
American National Standards Institute. 

Este instituto fijó ya hace algunos años un ANSI-Minimal-Standard para 
BASIC (Fig. 1.2). 


ANSI MIN BASIC 


Operadores 


+ o- * / NOT AND OR = < > 


Caracteres especiales y de puntuacion 


O A 
Funciones 
ABS ATN COS EXP LOG RND 


SGN SIN SQR TAB TAN 
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Indicaciones 

BYE DATA DEFFN DIM END 
FOR. .TO GOSUB GOTO IF.. THEN INPUT 
LET NEXT PRINT READ REM 
RESTORE STEP STOP 


Fig. 1.2 El estándard aconsejado por los americanos 
se respeta hoy en día en la mayoría de versiones BASIC. 


Los comandos de BASIC denominados ANSI-MIN deberían funcionar 
actualmente en todas las versiones mejoradas de BASIC. Sin embargo, estas 
instrucciones no son suficientes para una programación cómoda. Sobre 
todo son insuficientes para el tratamiento de cadenas de caracteres. 
Todas las versiones modernas sobrepasan el ANSI-MIN-Standard. Hoy 
determinan sobre todo las casas americanas de software el modelo de BASIC. 
Se han desarrollado algunas tendencias, de las que Microsoft-BASIC ha 
adquirido mas importancia. Con ella se puede hablar actualmente de 
una casi estandarización del lenguaje. Lamentablemente existen también 
dialectos Microsoft de BASIC que dependen de los fabricantes de 
computadoras. Los grandes fabricantes de ordenadores como IBM, Hewlett- 
Packard, Nixdorf, etc. utilizan versiones propias de BASIC, no obstante 
cada vez son más similares, ya que también las nuevas versiones de estos 
fabricantes cada vez se apoyan mas en el modelo del Microsoft. 
Ultimamente se intenta llegar a estandarizar el BASIC. Las nuevas 
versiones de BASIC respetan los consejos mas conocidos y utilizan variables 
de distinta longitud, calculan con números BCD y permiten el uso de 
etiquetas como instruciones de bifurcación. El nuevo modelo de BASIC 
deberá permitir mas construcciones de bucles y subprogramas con 
variables locales. Parece ser que en esta propuesta se pretende liberar el 
BASIC de la recriminacion de que no obliga a la programación 
estructurada. Con todo esto se asemeja BASIC cada vez mas a los otros 
modernos lenguajes de programación. Lo que falta por comprobar es si 
con ello se ha perdido su fácil aprendizaje. 


Z 


Elaboración y ejecución de programas 


Antes de comenzar a comentar las instrucciones de las distintas versiones 
de BASIC, debemos agregar algunas diferencias que persisten en las 
diversas computadoras cuando trabajan con BASIC. Estas 
diferencias implican una composición concreta por parte del programador a 
la hora de hacer el programa. Incluso con las mismas instrucciones 
pueden formarse diferentes programas en distintos ordenadores. 


Se debe tener en cuenta también que cada programador tiene suforma para 
resolver problemas de programación, ya que en este aspecto no existe 
ninguna norma preestablecida. Todo problema se puede resolver de diversas 
maneras. Si el programador está únicamente acostumbrado a su método de 
programación, encontrará dificultades al trabajar con programas ajenos, 
incluso si estos se han escrito en su mismo modelo de ordenador. 


2.1 Disposición de las indicaciones 
de programa 


Aún partiendo de la base de que todas las indicaciones de BASIC deben ir 
precedidas por el número de línea, existen -ya con la longitud permitida- 
enormes diferencias. Una serie de computadoras permiten 
únicamente 80 caracteres por línea. Normalmente las líneas suelen 
alcanzar un máximo de 255 o 256 caracteres. Es el programador el que 
decidirá la longitud de cada línea. 

Sobre estu existen diversas opiniones. En tiempos en que la memoria de 
trabajo tenía un coste elevado, se trataba de escribir la mayor cantidad 
de instrucciones en cada línea, ya que cada una de ellas ocupa espacio 
en la memoria. Además resulta mas rápido en su ejecución si se compone de 
pocas líneas. Sin embargo los programas con líneas cortas son mas 
fáciles de leer. Además se debe considerar que en programas con líneas 
largas, los comandos de bifurcaciones, deben estar al principio de línea. Lo 
mismo ocurre con los espacios entre palabras. 
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20 print “CALCULO DE FINANCIACION" 

30 input "Tipo de interes";TI: input"periodos por ano";PA 
50 input "numero de anos";NA:N=TI 

90 N=T1/PA/100:A=(1+N)/(PA*NA) 

110 PRINT:PRINT"Que se ha de calcular " 

120 PRINT"1 valor futuro de una inversion de capital 

2 valor futuro de inversiones periodicas 

3 inversiones periodicas para un objetivo de ahorro" :PRINT 
130 PRINT" Introducir cifra, despues NEW LINE": INPUT x 
150 ON X GOTO 200,300,400:GOTO 130 

200 INPUT “Capital inicial";CI:CF=CI*A 

220 PRINT:PRINT"el capital final es de ";CF:GOTO 500 

300 INPUT" Inversion periodica"; IP:CF=IP*(A-1)/N 

320 PRINT:PRINT"el capital final es de ";CF:GOTO 500 

400 INPUT "ahorro deseado"; CF: IP=CF*(N/(A-1)) 

420 PRINT:PRINT"la inversion por periodo es de ";IP 

500 PRINT: INPUT"otra vez";X$ 

510 IF X$="SI" OR X$="si" THEN CLS:GOTO 30 


20 PRINT “CALCULO DE FINANCIACION" 

30 INPUT “Tipo de interes"; TI 

40 INPUT "Periodos por ano"; PA 

50 INPUT "Numero de anos”; NA 

90 N = TI / PA / 100 

100 A = (1+N) / (PA*NA) 

110 PRINT: PRINT "Que se ha de calcular * 

120 PRINT 

“1 Valor futuro de una inversion de capital 

2 valor futuro de inversiones periodicas 

3 inversiones periodicas para un objetivo de ahorro" 
130 PRINT “Introducir cifra, despues NEW LINE" 
140 INPUT X 

150 ON X GOTO 200,300, 400 

160 GOTO 130 

200 INPUT "Capital inicial"; Cl 

210 CF = CI*A 

220 PRINT:PRINT "el capital final es de " ; CF 


300 INPUT "Inversion periodica " ; IP 
310 CF = IP * (A-1) / N 
320 PRINT: PRINT "el capital final es de "; CF 


400 INPUT "Ahorro deseado " ; CF 

410 IP = CF * (N / (A-1)) 

420 PRINT: PRINT "La inversion por periodo es de "; IP 
500 PRINT: INPUT "Otra vez " ; X$ 

510 IF X$ = "SI" OR X$ = “si” THEN CLS:GOTO 30 

520 END 


Fig. 2.1 En el ejemplo tenemos un programa escrito muy condensado, 
ocupa sólo una tercera parte de memoria que el segundo, pero éste en cambio 
que incorpora espacios es mucho más fácil de leer. 
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Todas las versiones mejoradas de BASIC son bastante tolerantes y no 
observan espacios innecesarios. Sin embargo muchos programadores 
escriben “sus programas de forma compacta, sin hacer uso del 
espaciador, para ahorrar plazas de memoria. No hay ninguna duda, que la 
colocación de ciertos espacios simplifica la lectura del programa, no 
obstante se debe poner atención en este tema ya que determinadas versiones 
exigen o prohiben introducir espacios después de algunos comandos. 
Existen también distintas opiniones en cuanto a la elección del número de 
línea. Algunos programadores tienen la costumbre de trabajar únicamente 
con números pares de línea. Utilizan en la programación la instruccion 
AUTO y en el programa finalizado el comando de control RENUMBER, 
cuando el ordenador posee esta característica. El autor opina que con ello 
no se mejora el programa. Por el contrario, al variar la numeración se 
pierde la estructura del programa, que puede por ejemplo obtenerse 
numerando los bloques de cien en cien, y asignando una nueva centena para 
cada nuevo bloque del programa. También difieren en cuanto a las comillas 
al final de una línea de programa. En algunas versiones de BASIC se 
puede prescindir de ellas, en otras sin embargo son indispensables. 

Existen discrepancias sobre las disposiciones e incluso las opiniones en 
el uso de mayúsculas y minúsculas. Algunos ordenadores solo trabajan 
con mayúsculas, otros permiten también las minúsculas para comandos y 
variables. En este caso se aconseja por experiencia utilizar únicamente 
mayúsculas, de esta forma se destaca mejor el programa de textos 
almacenados, que deberían escribirse con ambos tipos de letras. 

Tampoco se llega a un acuerdo respecto a la cantidad de comentarios 
que son necesarios en una lista de programa. Podemos encontrar programas 
con mas líneas de comentarios que líneas de programa en sentido estricto. 
Por un lado se evitan espacios para disponer de mayor memoria de 
trabajo, pero por el otro se añaden comentarios innecesarios. Si se 
pretende ejecutar este tipo de programas en otra computadora y se eliminan 
las líneas de comentarios, puede darse el caso de que estas líneas fueran 
de bifurcación y el programa no funcione sin ellas. 
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Resulta muy incómodo para convertir programas la característica de algunas 
computadoras que consiste enincorporar comandos del cursor en el programa 
cuando estas se introducen como cadenas de caracteres. Posiblemente ni se 
expresan en la lista del programa. También resulta difícil comprender 
entender las expresiones que utilizan signos inversos. 


2.2 Estructuración de programas 


En la técnica de programación juega un papel importante estructurar 
el programa en bloques cerrados con una sola entrada. BASIC no es 
un lenguaje que exija programar en estructuras, pero el programador puede 
escribir su porgrama fácilmente de forma estructurada usando el BASIC. 
Asi por ejemplo, puede anteponer en las lineas de comentario una lista 
de variables como parte declarativa y comenzar los bloques de programa 
cada 100 o 1000 números. Es importante no efectuar bifurcaciones 
innecesarias dentro del programa. 
Lamentablemente nos encontramos con cierta frecuencia con programas en 
BASIC, que debido al mal uso de las comandos GOTO, se les denomina y con 
razón programas spaghetti. Contra esto no resulta de gran utilidad la 
posibilidad que brindan algunas versiones, consistente en insertar los 
comandos encadenados en la presentación del programa. Esta posible 
mejora dela imagenexterna del programa puede lograrse eligiendo números 
apropiados al comienzo de cada bucle. De lo contrario resultan bastante 
inintelegibles los programas estructurados que abusan de los comandos 
GOSUB. 

19" REM. 03 1. .por 13 

100 FOR K = 1 TO 10 


110 FOR J = 1 TO 10 
120 PRINT J * K; 
130 NEXT JJ 

140  PRINT 

150 NEXT K 

160 END 


Fig. 2.2 En esta forma es más fácil leer los programas. Aunque esto no tiene 
nada que ver con programación estructurada. 
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Por el contrario hemos de decir que la llamada a subrutinas es práctica, si 
una porción del programa debe ejecutarse repetidas veces. Perotambién puede 
escribirse el programa principal y llamar desde el mismo los diferentes 
bloques de estructuras como subprogramas. 

Mas problemático resulta el comando GOSUB cuando se utiliza 
indiscriminadamente y no como un bucle normal. Resultan especialmente 
difíciles de leer las llamadas en subprogramas anidados. 

Existen algunas versiones de BASIC que permiten la utilización de nombres 
específicos (labels o etiquetas) como direcciones de bifurcación. Con 
ello se asemejan bastante a la estructura de otros lenguajes de 
programación. Noobstante hemos de decir que no ofrece excesivas ventajas, 
yunporgramaescritode este modo puede resultar problemáticoenel momento 
de convertirlo. 


2.3 Utilización y ejecución del programa 


Dependiendo del modelo de ordenador, cada versión de BASIC puede requerir 
un manejo diferenciado del ordenador. La elaboración del programa a través 
del EDITOR puede ser en cada caso bien diferente. Con este programa 
de edición se apoya en mayor o menor grado el trabajo de programación. 
También son diferentes los comandos de ayuda o programas de ayuda como 
asistencia en la ejecución de prueba o en la búsqueda de errores. No 
insistiremos sobre este tema en este tratado, pues se espera que el 
usuario conozca lo suficiente su computadora y tampoco se debe preocupar 
sobre el manejo de computadoras ajenas en la transformación de un 
programa. Esúnicamenteimportante el tratamiento de errores desintaxis en 
el momentodeejecutar un programa en diferentes ordenadores. La mayoría de 
los intérpretes comprueban la sintaxis del programa durante su ejecución 
y si encuentran un error interrumpen la ejecución. 

Hay otros intérpretes que analizan la sintaxis antes de que se 
introduzca ninguna indicación en la memoria del programa. 

Los mensajes de errores son bastante similares en las distintas versiones 
de BASIC. Siempre aparece la línea donde se encontró el error junto con el 
código de errror. Resulta mas interesante para el usuario cuando la 
mención del error se realiza mediante una abreviatura del error o se 
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expresa con un texto completo. Resultan mucho mas cómodas para el 
programador las versiones de BASIC que indican exactamente la posición de 
la línea donde se ha encontrado el error de sintaxis. 

Donde aparecen relativamente pocas diferencias es durante la ejecución del 
programa propiamente dicho. Siempre y cuando no se trabaje con gráficas en 
la pantalla. Mas dificultoso resulta si se utiliza además salida por 
impresora. El sistema de direccionamiento para los distintos periféricos 
difiere bastante de una versión a otra, por lo que la ejecución del 
programa puede variar muchosi se emplean diferentes modelos de impresora 
para un único programa. 

Resulta casi imposible ejecutar programas en diferentes sistemas que 
necesitan la intervención de diskettes. Independientemente de que los 
comandos de cada sistema operativo de diskettes no se pueden traducir, aun 
y cuando empleen los mismos comandos, existen muchas posibilidades en la 
relación de un ordenador con el dispositivo de diskettes. 

Cada fabricante sigue sus propias directrices. Incluso sistemas 
operativos neutrales no permiten la transferencia de programas de cualquier 
manera. 


3 


Diferencias en las variables 


Todos los lenguajes de programación operan con variables. Algunas 
versiones utilizan otras definiciones, aunque se trata en sí de nombrar a 
un objeto de manera que a lo largo del programa se le puedan asignar 
diferentes valores. 

En muchos lenguajes se debe hacer una declaración de las diversas 
variables que se van a utilizar a lo largo del programa. Unicamente 
después de esto el ordenador puede asignar los diversos registros de memoria 
y trabajar con los valores en ellos almacenados. En BASIC 
excepcionalmente es necesario el almacenamiento de registros. Con la 
mayoría de los tipos de variables los registros se  direccionan 
dinámicamente, esto es, según la necesidad del programa. 

Este hecho exige que en ocasiones el propio sistema operativo realice una 
nueva distribución de la memoria durante la ejecución del programa y no 
tener que liberar espacio de almacenamiento para las nuevas variables. En 
inglés se habla de garbage collection (recogida de basuras). 
Este procedimiento produce una interrupción inesperada de fracciones 
de segundo durante la ejecución del programa. 

Los nombres asignados a las variables de BASIC son válidos para todo el 
proceso del programa. Con el comando RUN se inicializan todos los valores 
almacenados en las variables. En BASIC no es posible definir variables 
para una única porción del programa. 
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3.1 Tipos de variables 


Practicamente todas las versiones de BASIC distinguen hoy en dia entre 
variables numéricas y variables de cadena de caracteres. En general es 
habitual colocar el signo de dóllar después de una variable de cadena de 
caracteres para reconocerla. Muy pocas computadoras anteponen el signo 
de dóllar a la variable, por ejemplo el ACORN ATOM. 

Las variables numéricas utlizadas con mas frecuencia en los dialectos de 
BASIC no necesitan ninguna señal especial. Pero si se utilizan 
simultaneamente varios tipos distintos de variables numéricas, entonces se 
señaliza cada uno con un signo posterior diferente. 


Variables simples Variables de campos 


Números enteros: AZ,A4%,BX% Números enteros:GAz(15) 

Coma flotante: A,C,A2,AB Coma flotante: G(2,6) 

Doble precisión: Af,B5f*,D64 Doble precisión: D6f*(25) 
Cadena de caracteres: A$,B1$,AZ$ Cadena de caracteres: 2$(22) 


Fig. 3.1 En la mayoría de versiones BASIC estan permitidos diferentes 
tipos de variables. Estas estan caracterizadas por signos especiales, 


La mayoría de versiones de BASIC limitan la gama de números que se deben 
tratar como variables de números enteros entre -32 768 y +32767. Las 
restantes variables numéricas pueden tener diferentes números de cifras. 
Cuando están permitidos, los números de precisión simple admiten 7 
posiciones exactas, mientras que los de doble precisión hasta 15 
posiciones. Las versiones de BASIC que trabajan con una sola 
precisión, lo hacen únicamente con 8 ó 9 cifras significativas. 

Las versiones que permiten diferentes tipos de variable reconocen 
con frecuencia comandos con los que al principio del programa se reservan 
los nombres de las variables para cada tipo de variable. 

Las siguientes palabras son utilizadas frecuentemente para este fin: 
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DEFSTR para reservar cadenas de caracteres como variables 
DEFINT para reservar números enteros como variables 

DEFSNG para reservar variables numéricas con precisión sencilla 
DEFDBL para reservar variables numericas con doble precisión 


Mas diferencias aparecen con las variables de campo (ARRAYS). Casi la 
mayoría de las nuevas versiones posibilitan la utilización de campos de 
varias dimensiones, en los cuales el número de elementos y 
dimensiones solamente se encuentran limitados por el espacio de memoria. 
Paralelamente existen una serie de versiones de BASIC en los que 
persiste una limitación en cuanto a la utilización de variables de campo. 
En general se deben dimensionar los campos con la orden DIM. Con ello se 
consigue reservar espacio de la memoria libre para los elementos del 
campo. En algunas versiones no es necesario dimensionar cuando el campo 
se compone de un máximo de 11 (ó 10) elementos. En el ANSI-MIN-BASIC 
existe el comando BASE para poder determinar si se asigna al primer 
elemento el índice 0 ó 1. En las nuevas versiones no existe este comando. 
En algunas versiones de BASIC es preciso reservar espacio de memoria para 
las cadenas de caracteres literales. En ocasiones se debe fijar la 
longitud de las variables de cadenas de caracteres con ayuda de la orden 
DIM. Otras versiones más utilizadas (Genie, BASIC 80, TRS 80, etc.) que 
se ejecutan sobre el microprocesador Z 80, necesitan la disposición 
global del espacio de memoria para cadenas de caracteres, cuando se deben 
almacenar más de 50 caracteres. Esto se realiza con la orden CLEAR. 


3.2 Nombres de variables 


La mayoría de versiones de BASIC tienen ciertas restricciones para la 
elección de los nombres de las variables. Fundamentalmente no 
pueden aparecer comandos como nombres de variable o al principio de uno 
de estos nombres. En general es habitual que las variables únicamente 
puedan comenzar con una misma letra y no se hace ninguna distinción entre 
mayúsculas y minúsculas. 

Las versiones de BASIC mas difundidas permiten uno o dos caracteres 
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ABCDEF............ UVWXYZ 
AA ABAC ADAE ........ AW AX AY AZ 
BA BB BC BD BE ........ BW BX BY BZ 


A0A1 A2A3A4A5A6A7ABA9 
BO B1 B2 B3 B4 B5 B6 B7 B8 B9 


Z0Z172Z3 2475767778 Z9 
Nombres de variables válidos 
AT IF ON OR FN 
Nombra prohibidos de variables 


Fig. 3.2 La mayoría de versiones de BASIC disponen de hasta 900 posibles 
combinaciones de caracteres para nombrar cada tipo de variable. 


como variables, de los cuales el primero es una letra y el segundo una letra 
o un número. De esta forma pueden representarse cerca de 960 variables 
diferentes. En ocasiones se permiten utilizar más caracteres para el nombre 
de la variable aunque la computadora sólo trabaje con los dos primeros. 
Unicamente en alguna versiones nuevas pueden utilizarse palabras más 
largas como nombres de variable. Esto aumenta la demanda de memoria 
para los programas. Las versiones que permiten únicamente un carácter para 
definir variables, ya casi no se encuentran. 

En general se pueden denominar los campos con el mismo nombre como 
variables sencillas. Sin embargo hay versiones de BASIC que en este caso 
permiten únicamente una letra. Existen asimismo limitaciones con las 
variables de control de ejecución de los bucles. 

Pueden utilizarse las mismas combinaciones de caracteresen un programa 
para distintos tipos de variables, pues su almacenamiento se 
efectúa de diferente forma. Un mismo nombre de variable se puede emplear 
para distintos objetos bajo el control directo del programador. El 
significado anterior se pierde, pero con ello se ahorra un poco de espacio 
de memoria. 
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3.3 Almacenamiento de las variables 


Los métodos bajo los cuales se ubican físicamente en memoria las variables, 
son verdaderamente muy diferentes. El programador no debe preocuparse por 
este tema, y lo que presentamos a continuación es a título informativo para 
el lector al cual le interese saber de que forma funciona internamente su 
ordenador. 

La organización de la memoria en los microprocesadores del tipo Z 80 y 
65xx, utilizados con mayor frecuencia en los ordenadores domésticos es 
diferente. La página O y la 1 del 65xx tiene un significado especial. 
Por ello el RAM se sitúa en todos los ordenadores que utilizan este 
procesador al principio de la memoria, es decir, en la dirección mas 
baja. En cambio, en el Z 80, el RAM se ha ubicado al final de la memoria. 


64 k 64 k 
para» -- monitor 60 k 
ampliación -- ROM 56 k 
-- intérprete de BASIC 52 k 
-- 48 k 
libre para ampliaciones 
Sa 36 k 
RAM para la pantalla etc. 
32 k 32 k 
RAM 28 k 28 k 
para programas del 24 k RAM 24 k 
usuario ampliación programas del 
20 k usuario 20 k 
para intérprete de 
BASIC 16 k 16 k 
12 k 12 k 
8 k RAM 8 k 
ROM 4 k 4 k 
intérprete BASIC 
O k 0 k 
280 6502 


Fig. 3.3 Normalmente el microprocesador permite el direccionamiento directo 
de hasta 64 kbyte, distribuidas entre RAM y ROM. Algunos tipos de 
microprocesadores sitúan el intérprete BASIC al principio del espacio de 
memoria, otros en cambio lo hacen al final. 
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Para el almacenamiento de las líneas del programa se comienza en general con 
la dirección mas baja disponible para el programa del usuario. Luego siguen 
las variables simples, las variables campo y los indicadores con las 
direcciones de las cadenas de caracteres almacenados. Estas se almacenan 
de forma ascendente en la dirección más alta permitida. 

El formato de almacenamiento es bien diferente en cada uno de los 
ordenadores. Algunosemplean para números enteros 4 Bytes, para números 
de precisión sencilla 6 Bytes y para números de doble precisión 8 Bytes 
(por ejemplo Genie y TRS 80). Otras computadoras que no pueden 
trabajar con números de doble precisión, utilizan siempre 7 Bytes para 
almacenar variables, con lo que quedan 3 Bytes disponibles para números 
enteros, y para indicadores de cadenas de caracteres 2 Bytes (por ejemplo 
modelos CBM, Apple) Dos métodos muy difundidos para el 
almacenamiento de variables se muestran en los gráficos 9.1 y 11.1. 
Algunas versiones de BASIC se comportan de manera diferente en el 
almacenamiento de variables de cadenas de caracteres. Estas se pueden 
utilizar frecuentemente con diferentes longitudes sin preparación 
previa en el programa. Para  posibilitarlo se almacena en los 
registros de variables, además de los nombres de las cadenas de caracteres, 
la longitud de la cadena y un indicador al principio del registro de 
caracteres. En él se colocan los caracteres de la cadena. Esto significa, 
que cada vez se ocupa un nuevo espacio de memoria en la memoria de 
caracteres, al asignar al nombre de la cadena literales, durante la 
ejecución del programa, una nueva definición. Esto es debido a que esta 
puede resultar más larga que la anterior y no entraría en el espacio de 
memoria antes ocupado. 

Cuando por ejemplo se asigna en tratamientos de textos o en programas 
clasificadores diferentes definiciones a una misma variable, es posible que 
la memoria de caracteres se llene con rapidez. La computadora interrumpe 
el programa para hacer una limpieza del espacio de memoria. Esto 
puede suponer algunos segundos. 

Ya que esta interrupción del programa puede ser molesta, algunas 
versiones de BASIC operan dimensionando previamente el espacio de 
memoria para las cadenas de caracteres. Incluso si se modifica el 
significado de una variable de cadenas de caracteres literales, permanece 
la disposición 
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física de la memoria inalterada. Este procedimiento tiene el inconveniente 
de que se ha de definir de antemano la longitud máxima de las variables de 
cadena de caracteres. 

El que desee encontrar dónde y cómo se han almacenado las variables, 
deberá comprobarlo en el espacio de memoria con ayuda de la función PEEK. 
Para saber en qué dirección comienza el correspondiente espacio de 
memoria, se deberá consultar en el manual. En algunos ordenadores, como 
el Genie y el TRS 80, se puede utilizar la funcion VARPTR, que nos 
muestra laposiciónde memoria. deesta forma podemos ver el almacenamiento 
de las variables que aparecen en el argumento de la función (fig.11.1). 
Otra forma para averiguar de qué forma se encuentran almacenadas las 
distintas variables lo facilitan los programas de ayuda, que presentan o 
imprimen el contenido de la memoria operativa o bien graban en un diskette 
el lenguaje máquina. En ocasiones permiten una operación en la memoria 
para realizar alguna corrección, si se da el caso de que el diskette no 
se pudiera leer por un error de almacenamiento. La figura 3.4 muestra un 
ejemplo de la presentación de un apartado de la memoria con ayuda del 
programa SUPERZAP, que se ejecuta en el Genie o en el TRS 80. 


FB00 0000 0000 0000 0000 0000 0000 0000 0000 2c.ccconoooooooo... 
Fa10 0000 0000 0000 0000 0000 0000 0000 0000 coccoccooooooooo.. 
Fa20 0000 0000 0000 0000 0000 0000 0000 0000 2cccocooooooooa-. 


F830 0000 0000 0000 0000 0000 0000 0000 0000 c.ccccoooo...- .... 
F840 0000 0000 0000-0000 0000 0000 004C GATA .ocoooooonoao.. LjZ 
F850 0084 0079 6464 00B2 2220 2020 2020 2020 ...Yidon."oo.... . 


FB60 5370 6965 6C3A 2020 2045 6964 6563 6873 Spiel:...Eidechs 
F870 6520 667B 6E67 7420 466C 6965 6765 6E00 e.fángt.Fliegen. 
F88o AB6A £900 B222 2020 2020 2020 2020 202D .ji.."...oo.o.. Se 
FB90 2D2D 2D2D 2D2D 2D2D 2D2D 2D2D 2D2D 2D2D  --—---------=-==-=-- 
FBAOo 2D2D 2D2D 2D2D 2D2D 2D2D 2D2D 2D2D 00B4 ----— 2 ===> .. 
F8BO 6£A6E 00B2 3A20 B23A 20B2 OODE 64878 00B2 jn..2..2...-JX..+ 
F8CO 2244 69653 20435 6964 6563 6873 6520 6C7B "Die.Eidechse.lá 
F8DO 7566 7420 3130 206D 616C 2076 6F72 6265 uft.10.mal.vorbe 
FBE0O 6922 3AB2 O00E 6B82 00B2 2254 756D 2046 i"2...k..."Zum.F 
F8FO 6C69 6567 656E 6661 6E67 £656E 2062 656€ liegenfangen.bel 


Dirección Contenido de las posiciones Caracteres ASCII 
de registros de memoria en números imprimibles, O 
hexadecimales bien punto 


Fig. 3.4 Presentación de la zona de memoria en codificación hexadecimal 
y con los caracteres ASCII mediante el programa de ayuda 
SUPERZAP. La figura muestra parte del programa de la página 208. 
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PNC T inicia un prograsa 
¿[LIST 22 [—Jistado del prograsa 7 


Mm 
o 
h=] 
ce 
po 
3 - continuar ejecucion 

- comando de escritura 


pa 
A 318 
|| Z 
x|=| 
<|= 
" 
x |x 
Oo |x 
<|jo 
mio 
rx 


- asigna valor a una variable 


x 
2 
— 
pa 
e 
” 


=x TO x STEP x | - definicion de bucle _____. |] 
¡LARA 


Instrucciones 


a ZS|AE|S AS|S|S 
ps a *lalr [2 3Plal3 
sl ¿la? <|S ln loe 
OQ|jN 
— 
o x mo 
"| 8 S 
=) 
N 


- dimensionado de matriz 
T | - interrupcion de ejecucion _______ | 


POKE dir ,val 
- borra pantalla 


+ Tadición JE iguatdag 
S [=——Tauttipricacion ——P> >] aayor que 
ALA NOTA IEEE CAMAS DE 7" NRO 
8 (3 —Tpreferencia Je" >> TÍ menor o igual que 
en «al SEN (x) [signo TSOR(x) | raiz cuadrada] 
2 S[SIN (x) [seno ______ [t06 (x | logaritmo (basee) ____________ | 
ST[T0S (x) [coseno ————————TRND(x) | mumero al azar — 22] 
2 E[ TAN (x) | tangente [EXP (x) Je elevadoax O] 
2 2[ATR (x) | arcotangente [TAB (x) | tabulador 2] 
[MEM (x) [memoria libre | FRE (x) | memoria de caracteres libre — | 
"PEER («) contenido direccion x | SPC (x) | espacios en blanco >>>] 

LE 


ASC Xx Valor ASCII del ori er aracter 
onvierte numero en caractere 
LEFTS (x$,n l- separa los n primeros caracteres | 
RIGHT (x$,n 


AAA AAA AA A 
vínunero entero | v!seis posiciones | v'l6 posiciones e 


Fig. 4.1 Los comandos fundamentales de BASIC que se encuentran en la 
mayoría de las versiones. 


Func Tones String 
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Desviaciones de los comandos básicos 


No existe un modelo estándar de órdenes básicas para BASIC, ya que por un 
lado no es suficiente el vocabulario ANSI-MIN para el uso universal del 
BASIC, pero además contiene órdenes que no se han adoptado en las nuevas 
versiones. El modelo ANSI-MIN no contiene órdenes para el manejo de 
cadenas de caracteres que hoy en día cuentan entre las órdenes básicas en 
todas las versiones. En cambio, las órdenes BASE y OPTION 
BASE que sirven en el ANSI-MIN-BASIC para determinar el índice 
inicial de los campos, ya no se encuentra. 

La tabla de la figura 4.1 muestra las órdenes disponibles en todas las 
nuevas versiones de BASIC. Pero incluso con estas órdenes pueden existir 
desviaciones en cada uno de los dialectos, que se han de tener en cuenta a 
la hora de convertir programas. La tabla no contiene órdenes para la 
utilización de memorias externas e impresoras y que naturalmente 
están contenidas en todas las versiones de BASIC. O sea que existen una 
serie de órdenes que difieren más entre ellas que las órdenes 
básicas. 


4.1 Comandos 
En los comandos coinciden la mayoría de las versiones BASIC. 
RUN 
Este comando que sirve para arrancar la ejecución de un programa puede ir 


seguido de un número de línea. Todos los registros de variables se 
borran.. 
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Algunas versiones de BASIC posibilitan la utilización de este comando 
como indicación de programa, lo que puede resultar muy interesante para el 
acoplamiento de varios programas. 


LIST 


Con este comando se puede conseguir una representación parcial del 
programa en la pantalla. Pero existen dos versiones. Algunos dialectos usan 
un guion para separar los números de líneas, asi por ejemplo LIST 100-200, 
y otros dialectos utilizan en este caso una coma: LIST 100,200. 


NEW 


Esta orden se emplea para borrar el programa que se encuentra en la memoria 
de trabajo. Algunas versiones utilizan SCR en su lugar. En general con 
esta operación no se borra el programa físicamente, sino solamente el 
indicador direccionado al comienzo del programa. Por eso hay algunos 
trucos para recuperar un programa que aparentemente se había borrado. 


CONT 


Con esta orden directa se continúa la ejecución de un programa que se ha 
interrumpido con BREAK o con STOP. 


4.2 Operadores 


Las operadores sirven para la unión en una expresión en BASIC de 
constantes o variables. Con frecuencia se diferencia entre operadores 
aritméticos, operadores de comparación y operadores lógicos (inglés 
BOOLEAN OPERATOR). No existen casi diferencias en los operadores 
aritméticos, pocas en los operadores de comparación y difieren bastante los 
operadores que suponen una comparación según la lógica "booleana". 
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+ z 


No existe ninguna diferencia en los operadores para la adición y la 
sustracción. 


E 
También son comunes los signos indicadores de la 
multiplicación y la división. 


() 


Los paréntesis condicionan el orden de las operaciones 
aritméticas. En general es válida la regla: producto y cociente se 
ejecutan antes que suma y resta. Principalmente se trabaja con el método 
AOS y no con el UPN. 


AN 
T obien 


Como operador para la potenciación se utiliza en principio la flecha 
vertical con el código decimal ASCII 94. Pero como que en la algunas 
versiones de determinados idiomas se utilizan los códigos del 91 al 94 
para letras especiales (diéresis, etc.) se complica a veces la 
introducción del operador para la potenciación. Por ejemplo, en el TRS 80 
se utiliza el corchete ([), en el Genie se indica con la letra mayúscula 
"A". En las versiones de ordenadores PC compatibles, se utilizan para la 
potenciación 2 asteriscos (**). 


=> < >= <= 

Para los operadores de comparación se utilizan símbolos unificados. 
Sin embargo aparecen diferencias significativas en la consecuencia de la 
orden. Con frecuencia se indica con el -1 cuando la comparación es correcta 
y con 0 si es falsa. (fig.4.2) 

La mayoría de versiones pueden comparar además de números también 
letras. Se basan en los valores del código ASCII, con lo que el valor de A 
es inferior al de B etc.. Mientras que el signo de igualdad no presenta 
ningún ¡inconveniente en ninguna versión, existen algunas versiones 
que no permiten la utilización de los signos "mayor que" y 
"menor que" para comparar letras. Sino es así, sólo se podran 
clasificar alfabéticamente cadenas de caracteres con la ayuda de un 
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10 A=5 : B=6 : C=10 

20 IF (A<B) = -1 THEN PRINT "Correcto = -1" 
30 IF (B<A) = 0 THEN PRINT "Falso = 0" 

40 VO = (A<B) + (B<C) + (C>A) + (C>B): PRINT VO 
50 IF VO=-4 THEN PRINT “Condición correcta" 
RUN 

Correcto = -1 

Falso = 0 

-4 

Condición correcta 

READY 


> 


Fig. 42 En algunas versiones “se puede operar con los indicadores de una 
comparación. Estos deberán estar entre paréntesis y se ligan con operadores aritméticos. 


programa adicional (Fig. 4.3). 


E e E 


Existen pocas diferencias entre los operadores de desigualdad, se utilizan 
normalmente para ello dos ángulos opuestos. Algunas versiones utilizan la 
doble cruz o símbolo numeral (4). 


10 X$ = "CASA" : Y$ = "CAMA" 

20 IF Y$ < X$ THEN 40 

30 PRINT X$; " anterior en el alfabeto a "; Y$: END 
40 PRINT X$; " posterior en el alfabeto a "; Y$ 

RUN 

CASA posterior en el alfabeto a CAMA 

READY 


> 


Fig. 4.3 En algunas versiones pueden compararse cada uno de los caracteres de una cadena 
de caracteres (string) según su valor ASCII. De esta manera se clasifica alfabéticamente. 
Este programa puede emplearse para comprobar el propio ordenador. 
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AND OR NOT 


Los operadores de interrelación lógica son iguales en cada versión de 
BASIC. Es habitual que se conviertan los números que van antes y después de 
los operadores a números binarios y luego se realice el enlace. Algunas 
computadoras indican el resultado como número, otras sin embargo sólo 
indican "correcto" o "falso". 


+ € 


El signo matemático o en algunas versiones comercial de adición se utiliza 
en general como operador para la unión de cadenas de caracteres sin 
espacios intermedios. 


4.3 Signos de puntuación y especiales 


Juegan un papel importante en todos los lenguajes de 
programación. BASIC utiliza únicamente los signos que presentan 
prácticamente todos los teclados de máquinas de escribir americanas. 
En algunas versiones de BASIC que no han sido confeccionadas en los 
E.E.U.U. existen diferencias. El significado de los sigmos de las 
versiones americanas son los mismos, aunque en algunos signos y órdenes 
se pueden producir efectos diferentes. 


El punto se utiliza para separar las cifras decimales en lugar de la coma. 


, 


La coma sirve para separar expresiones o variables que se deben introducir, 
imprimir, almacenar o leer. Precisamente con la coma se producen distintos 
efectos según el orden con que se utilice. 
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También sirve como signo de separación en algunas órdenes. 
Frecuentemente se puede emplear al final de una línea para impedir el 
avance de línea. 


En la mayoría de versiones de BASIC se utilizan los dos puntos para 
separar sucesivas órdenes en una misma línea. No obstante algunas 
versiones no permiten el punto y coma o el signo de cociente. 


Las comillas sirven para marcar una serie de caracteres. 
Frecuentemente no pueden aparecer en el interior de una cadena. En 
algunas versiones se asume el valor de las comillas al final de una línea de 
programa. 


$ 


En general se utiliza el carácter de dólar para identificar una cadena de 
caracteres (string). El ABC 80 desarrollado en Suecia emplea en su lugar 
el símbolo monetario sueco. 


% 


Se utiliza para definir variables de números enteros. 


H 


La doble cruz (símbolo numérico comercial) sirve en algunas 
computadoras para reconocer variables de doble precisión. Se emplea para 
numerar los caracteres en las órdenes de cassettes y discos. 


Define en algunas versiones las variables de precisión sencilla. 
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? 


El signo de interrogación es la forma abreviada de introducir la orden 
PRINT. En la pantalla supone el requerimiento de introducir un dato 
después de la orden INPUT. 


Q 


El signo comercial de arrobas se utiliza en el Genie y el TRS 80 
después de una orden de PRINT, cuando se desea hacer la edición en una 
determinada posición de la pantalla (orden PRINT-AT). 


4.4 Funciones 


No existen casi diferencias en las diversas versiones de BASIC en cuanto a 
las palabras de utilizadas para funciones. Requieren que el argumento se 
codifique entre paréntesis. Sin embargo difieren en cuanto al número 
de funciones disponibles. Algunas versiones contienen las funciones 
hiperbólicas, otras permiten calcular el logaritmo natural y el logaritmo 
en base 10, y otras versiones se conforman con las funciones básicas 
deduciendo las restantes. 


Funciones numéricas con números en el argumento 


SIN COS TAN ATN 


Para los cálculos trigonométricos siempre estan disponibles las 
funciones trigonométricas seno, coseno, tangente y arcotangente. En 
general se debe introducir el ángulo del argumento en radianes. Muy 
pocas versiones permiten introducir los ángulos en grados sexagecimales 
después de la orden GRAD. 
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ABS 


La función para determinar el valor absoluto de un número también se 
encuentra siempre contenida en la relación de órdenes. 


SGN 


También se dispone siempre de la función que indica el signo de un número, 
aunque se puede sustituir fácilmente por una comparación con 0. 


SQR 


Siempre existe una función para calcular la raíz cuadrada. Las restantes 
raíces pueden calcularse potenciando con fracciones. 


LOG 

En general se calcula con la función del logaritmo en base e. 
EXP 

Con la función EXP se calcula e*. 
INT 


Redondea el valor de la expresión numérica al número entero siguiente. 
Esta función trabaja de forma diferente con los números negativos que 
la función FIX, que suprime en cada caso la parte decimal del número. 


RND 


La función que calcula números aleatorios presenta muchas diferencias en 
cuanto al argumento que se debe introducir según la versión de BASIC 
de que se disponga. En los capítulos 9 a 12 se muestran algunas 
variantes. 
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TAB 
En muchas versiones no se debe situar un espacio después de la función de 
tabulador y antes del paréntesis. 


SPC 
Con el argumento entre paréntesis se determina el número de espacios 
quese deben contar después de una orden PRINT. Algunas versiones utilizan 
para ello la función STRING$(A,B). Se debe repetir en ocasiones el 
carácter B introducido en código ASCII. 


PEEK 
Esta función da el contenido de la posición de memoria 
especificada por el argumento en forma de número decimal. Se debe tener 
en cuenta, que algunas computadoras exigen insertar la dirección de la 
memoria como número complementario, si es mayor que 32.767. 


FRE 
Con esta función definen muchos ordenadores, según el argumento, el 
espacio de memoria total disponible o solamente el espacio disponible para 
almacenar cadenas de caracteres. También se utiliza frecuentemente para 
este propósito la orden MEM. 


Funciones de transformación de cadenas de caracteres 


LEN 


Todas las versiones que permiten el tratamiento de cadenas de 
caracteres tienen esta función para indicar la longitud de la cadena. 


LEFT$ RIGHT$ 


Esta funciones sirven para separar una serie de caracteres del extremo 
izquierdo o derecho de la cadena. No se presentan en todas las 
versiones. 
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MID$ 
La función MID$ sirve para remplazar uno o varios caracteres en una cadena, 
que en algunas versiones se llama SEG$. 


CHR$ 
Esta función, de uso frecuente, presenta el carácter ASCII 
correspondiente al código expresado en el argumento en forma decimal. 


VAL 
Esta función da el valor numérico de una cadena de caracteres que sean 
dígitos para que se pueda calcular con ellos. 


STR$ 
Convierte una expresión numérica en una cadena de caracteres formada por 
los mismos dígitos decimales. 


ASC 
La función calcula el código ASCII del primer carácter de la expresión 
literal. 


4.5 Indicaciones de programa 


Las órdenes mas importantes de BASIC se utilizan normalmente como 
indicaciones de programa. En el vocabulario básico, que entienden 
prácticamente todas las versiones, no existen casi diferencias. En 
general se han agregado mas órdenes de las que disponía el ANSI-MIN 
estándar. 


CLEAR 
Esta orden, con la que se abandonan los ficheros abiertos, sirve 
también en el GENIE/TRS 80 para reservar espacio de memoria para 
cadenas de caracteres, lo que no es necesario en otras computadoras. Asi 
por ejemplo CLEAR 2000, reserva 2000 Bytes. 
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DATA 


Algunas computadoras no permiten que las indicaciones DATA abarquen 
varias líneas. También aparecen diferencias en la forma de escribir las 
cadenas de string con esta orden. En algunas versiones se pueden 
suprimir las comillas al principio y final de un string, si este no 
comienza con un espacio en blanco. 


DIM 


En la mayoría de dialectos sólo es necesario dimensionar los campos que 
ocupen mas de 10 elementos. Pero existen también versiones de BASIC que 
no admiten el dimensionado de la longitud de las cadenas de caracteres. 


END 


En la mayoría de los casos no se necesita de la orden END si el programa 
concluye con la última línea de programa almacenada.Pero en algunos 
dialectos (por ejemplo ACORN ATOM) siempre se ha de cerrar el programa 
con la orden END. 


FOR...TO 


Según que dialectos se pueden ejecutar los bucles de diferente manera, 
siempre y cuando se haya cumplido la condición de ruptura al comienzo 
del bucle. Entonces se produce en la mayoría de dialectos la ejecución del 
bucle, en otros, sin embargo, se salta el bucle. Existen versiones que 
permiten únicamente variables sencillas como variables de control. 


GOSUB 


Esta orden que invoca una subrutina es común a todas las versiones de 
BASIC. Sin embargo aparecen diferencias en el número de 
interdireccionamientos, o sea, con las subrutinas abiertas. Algunas 
versiones permiten invocar a la subrutina con un label en vez de la línea 
de programa. 
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GOTO 


Esta orden también es común a todas las versiones. Á veces se puede 
escribir en dos palabras, GO TO. Algunas versiones permiten 


expresiones numéricas en lugar de líneas de programa e incluso a veces 
labels. 


IF...THEN 


Existen pocas discrepancias con las órdenes de opción, que producen 
una decisión condicionada. Normalmente se refiere a la línea de programa 
que se debe saltar después de la orden THEN, aunque a veces se utiliza la 
orden GOTO. También pueden seguira la orden THEN varias otras órdenes 
sucesivas. 


INPUT 


Este comando acepta una entrada de datos de una variable. Algunas 
computadoras rechazan la entrada de datos cuando se intentan asignar 
letras a una variable numérica. Entonces se requiere del usuario que vuelva 
a ejecutar la operación, sin interrumpirse el programa. En algunas 
versiones, como en el Commodore-BASIC, se interrumpe el programa si se 
utiliza la tecla de RETURN antes de pulsar cualquier otra tecla. 

Para introducir varios datos consecutivos, estos deben separarse con 
comas. Todas las nuevas versiones permiten que en la orden de entrada se 


agregue un texto aclaratorio, que aparecerá luego como con una orden de 
PRINT. 


LET= 


En muchas versiones se puede omitir la orden LET para 
asignaciones. Algunas computadoras avisan de error si se llama a una 
variable del programa a la que no se le ha asignado anteriormente 
un valor. Otras colocan entonces en variables numéricas el 0 y en 
variables de cadenas un string vacío. 
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NEXT 
Esta orden se sitúa siempre al final de un bucle. Normalmente no es 
necesario insertar la variable, si solo se ejecuta un bucle sencillo sin 
encadenamiento. En algunas versiones pueden seguir a laorden NEXT varias 
variables sucesivas separadas por comas, si hay varios bucles anidados. 


ON..GOTO ON...GOSUB 
Las órdenes de varias bifurcaciones son prácticamente idénticas en todas 
las versiones. Aparecen diferencias en el número de posibles 
bifurcaciones y en el tratamiento de posibles errores de entrada para 
variables de decisión. 


POKE 
Con esta orden se escribe una secuencia de dígitos en la memoria de la 
máquina, en la posición especificada por el parámetro del argumento en 
forma decimal. Se hadetenerencuenta que algunas computadoras requieren 
la entrada de la dirección como complemento si las direcciones son 
mayores que 32 767. A veces se utiliza en vez de POKE las órdenes STUFF o 
FILL. 


PRINT 

La orden de salida se puede sustituir prácticamente siempre por el signo de 
interrogación. Naturalmente se inserta en la lista de programa la palabra 
PRINT. Normalmente se emplean los signos de coma y el de punto y coma para 
separar los elementos de la lista. La coma especifica que los elementos 
se deben escribir en columnas, mientras que el punto y coma implica la 
escritura sin espacios, un elemento detrás del otro. Con números suele 
dejar un espacio libre después de de cada cifra y frecuentemente también 
deja uno antes de la cifra, si no se escribe el signo en los números 
positivos. 

En algunas versiones de BASIC se puede utilizar la orden de PRINT de forma 
mas amplia. Asi por ejemplo con la orden PRINT AT se comienza a escribir en 
un lugar determinado de la pantalla, la orden PRINT USING produce una 
salida formateada y con PRINT% se activa un fichero determinado. 
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READ 


La orden para la lectura de datos en líneas DATA es igual en casi todas 
las versiones. 


REM 


Con ello podemos realizar comentarios en el programa, que no tendrá en 
cuenta la computadora al ejecutarlo. En algunas computadoras se puede 
sustituir por el apostrofe ('), como en el Genie y el TRS 80. 


RETURN 


Siempre se debe colocar esta orden al final de una subrutina para que la 
computadora vuelva a la instrucción posterior a aquella que llamó a la 
subrutina. 


STEP 


La variación de la variable de control en el bucle FOR.. NEXT 
no es necesario programarla, si se aumenta en una unidad cada vez. En 
algunas versiones solo se pueden emplear números enteros después de la 
orden de NEXT. 


STOP 


La orden para interrumpir el programa puede ser en algunas versiones 
BREAK. 


5 


Diferencias en la arquitectura de pantalla 


La edición de los caracteres en la pantalla de una computadora no depende 
tanto del lenguaje de programación como del Hardware y sistema operativo 
que se utilice. Dado que los intérpretes más usuales de BASIC para 
ordenadores personales incorporan asimismo el sistema operativo, no 
podemos generalizar respecto a las características de la pantalla. En este 
capítulo estudiaremos brevemente las diferencias existentes en las 
modalidades de representación de pantalla de diferentes tipos de 
ordenadores. 


5.1 Disposición de la pantalla 


La distribución de pantalla en líneas y columnas depende 
principalmente de la dimensión de la memoria de pantalla 
disponible. Esta memoria sedenomina asimismo memoria de video. 
En la mayoría de los ordenadores profesionales se dispone de 2 Kilobytes de 
espacio de memoria para control de video, en los ordenadores domésticos 1 
Kilobyte y en las computadoras de juego únicamente 1/2 Kilobyte. 

Dado que cada carácter ocupa un byte, los equipos profesionales 
presentan líneas de 80 caracteres, y en la pantalla se visualizan 24 
ó 25 líneas. Si se dispone de 1 Kbyte de espacio de memoria, este se 
divide frecuentemente en 24 ó 25 líneas con 40 caracteres por línea. Para 
poder escribir la longitud de toda una línea de máquina de escribir en una 
línea de pantalla, se ha elegido otra composición en el Genie y el TRS 
80. Aquí se escriben 64 caracteres por línea, pero se visualizan 
únicamente 16 líneas. 

Si se utilizan televisores en color como monitores de ordenador, se debe 
emplear una división mayor. Frecuentemente se muestran 32 caracteres 
por línea. Una memoria de video de 1/2 Kbyte puede controlar o 
almacenar únicamente 23 líneas de 22 caracteres cada una, como 
podemos encontrar en el VC 20. 

No obstante persisten las diferencias en cuanto a la matriz de puntos que 
se utiliza para la representación de los diversos caracteres en la 
pantalla. Debemos diferenciar entre la matriz de campo y la matriz de 
caracteres. La matriz de campo debe ser siempre mayor que la de c¿racteres, 
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ya que la representación de textos conlleva la inserción de espacios entre 
los caracteres y líneas. En la representación de gráficos se 
utiliza la matriz de campo entera y a veces se reduce la separación 
entre líneas. 


5.2 Conjunto de caracteres y 
código de caracteres 


El código ASCII se ha impuesto universalmente para la transmisión 
de información de una computadora a los periféricos. 

En muchos ordenadores se activa la pantalla con el código ASCII. Pero 
existen asimismonotables excepciones, por ejemplo los modelos Commodore y 
MZ 80, que emplean un código de pantalla especial. A diferencia del código 
ASCII, que opera con un código de 7 bits, utilizan los códigos de pantalla 
con los 8 bits de un byte, aumentando la capacidad de representación de 
caracteres. 

Los códigos de control de video de estas pantallas son diferentes. Como 
ejemplo tenemos en la figura 5.1 el código del MZ 80. El código que se 
emplea en los modelos Commodore se describe en el capítulo 10. 

Aunque se disponga de un código de pantalla diferente, pueden utilizarse 
los valores del código ASCII para introducir datos y comandos de control 
con ayuda de la función CHR$. La misma computadora realiza internamente 
la nueva codificación. No obstante se debe utilizar siempre el código de 
pantalla para escribir información directamente en una posición de memoria 
de la memoria de pantalla utilizando el comando POKE. 

La codificación del juego de caracteres utilizable esta ubicado en un 
ROM. Ya que cada país hace un uso diferente de algunos símbolos de 
letras y teniendo en cuenta las preferencias de los usuarios, la 
mayoría de ordenadores disponen de diversos juegos de caracteres, que se 
pueden recuperar mediante un comando directo. 
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Pear | cose] Far [ose |" | cose“ ear cose gr | case “or 
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¿15 | =(WN|s|¡O0||Miw|a [8 |13 225 | [] 
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14 FUN - BENCINA 12|n | 13| A |206| (80) | 238| 8) 
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w6|[3| «s|50j| so m|D|1 | p |176| (0) | 208| $3 | 240 
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Fig. 5.1 Algunas computadoras no utilizan el código ASCII para la 
pantalla. En su lugar utilizan las 256 posibles secuencias de dígitos de un 
byte para la representación de signos. En la figura tenemos el código 
de pantalla del MZ 80. 
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En otros es necesario cambiar el ROM, cuando, por ejemplo, se utiliza un 
tratamiento de textos especial para el español, con acentos y letras "N". 
Algunas computadoras cargan, al conectarse, el juego de caracteres del 
ROM al RAM. Esto ofrece al usuario la posibilidad de modificar caracteres a 
su gusto. 

Existen muchas posibilidades de codificación de los caracteres. 
Por ello el usuario debería comprobar su ordenador en este aspecto, cuando 
noencuentre las aclaraciones necesariasenelmanual. Un pequeño programa 
para averiguar que tipo de código genera el teclado, podría ser como el que 
presentamos a continuación. 


10 GET X$ : IF X$="" THEN 10 

20 PRINT X$,ASC(X$) 

30 GOTO 10 

o bien 

10 GET X$ : IF X$="" THEN 10 

20 PRUNT X$,ASC(X$) 

30 GOTO 10. 
De forma inversa podemos, mediante el siguiente programa y la función 
CHR$, expresar valores y comprobar que carácter se visualiza en 
pantalla y que funciones de control se ejecutan. El programa se ejecuta 
conscientemente con una orden INPUT en el bucle, para poder reconocer con 
mas facilidad el efecto de la función de control. 


10 INPUT X 

20 PRINT CHR$(X) 
30 GOTO 10 

RUN 

66 


164 


123 


Y”. y Zi'Y 0 y 


174 


+ 
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10 FOR J = 128 TO 191 

20 K = K+1 

30 LPRINT J; J+32; CHR$(J+32), 

40 IF K = 4 THEN LPRINT CHR$(13): K=0 
50 NEXT 


Sacar del libro página 51 


128 160 1279 161 * 130 162 " 131 163 = 
132 164 £ 133 165 I 134 166 133 167 P 
136 168 137 169 % i38g 170 4H 1392 171 Y 
140 172 m 141 173 kh 142 174 143 175 Ml 
144 176 Mi 145 177 = 146 178 e 147 179 e 
148 180 1 149 181 ¿ 150 182 í 151 '—183 r 
152 184 e 153 185 7] 154 186 A 155 187 A 
156 188 F 157 189 P 158 190 É 159 191 ES 
1560 192 ó 1561 1193 SE 1562 194 E 163 195 p 
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176 208 ES 177 209 ps 178 210 A 179 211 pa 
180 212 h 181 213 L 182 214 £ 183 215 E 
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ies 220 7 189 221 7 190 222 á 191 223 5 


Fig. 5.2 Para la presentación e impresión grafica de caracteres 
se utiliza a veces diferentes códigos. Utilizando el programa del ejemplo, 
se realiza la impresión de los caracteres junto al código de pantalla del 
128 al 191, si se introduce a la impresora de 160 a 223. El ejemplo se 
ha escrito con una computadora Genie y una impresora Epson-MX-80. 
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significado Apple CBM Genie/TRS 80 
en ASCII 


ETX STOP 


| Sumar | [Sumar] | | 


Borrar un Borrar un 


=> 
| carácter [| | carácter | 
AD AE TERR 
ñ avance de arme de | 
| línea |) | línea | 
1 ra son Lot 
Cargar] cursor] 7] 
Teese 
DIA: DER... O EA 
nj] 
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O|oO|jO ¡O O Mio pa a o |0 
OO | OO o|m | dn|im 
Bb|wD|Nn|- E 


carácter 
2 NAK avance de [borrar 


carácter línea] 


línea 


1) 
Ñm 
104) 
< 
z 


línea 
(O IRIS 19 —— E 
arriba 
supo —po | ACursor+ | 
27 ESCAPE 


EL 
IS EN 


avance de 

carácter de línea 
borrar hasta 
A 
borrar a par 


Fig. 5.3 Los códigos de control no se utilizan en la mayoría de computadoras siguiendo 
la norma ASCII. En algunas incluso se utilizan valores de código superiores a 128 para 
funciones de control. 
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El código de pantalla puede reconocerse únicamente cuando se consultan 
mediante PEEK las posiciones de memoria de la pantalla, conociendo su 
contenido. 

Resulta mas complicada la imagen de la codificación, si se desean 
presentar e imprimir símbolos gráficos, ya que la misma impresora dibuja 
a partir del valor de código 128 diferentes imágenes. En la figura 5.2 se 
muestra como puede realizarse la representación visual y su expresión con 
una computadora Genie y la impresora MX-80. 


5.3 Comandos de pantalla 


En todas las versiones de BASIC existen una serie de comandos que influyen 
en la representación visual por pantalla. Estas diferencias que pueden 
aparecer son mas importantes para la transformación de un programa que las 
diferencias que puedan aparecer en la representación visual. 
La posición del cursor determina el lugar donde aparecerá un nuevo carácter 
en la pantalla. Por eso, la mayoría de los comandos de pantalla son 
comandos que posicionan el cursor. Existen también comandos que borran el 
contenido de la pantalla completa o parcialmente. 

Debemos diferenciar entre los comandos directos, que se realizan en 
operaciones directas a través del teclado, y los comandos de programa 
para situar el cursor en una determinada posición de la pantalla. 
Pero ambos tipos de comando pueden combinarse mutuamente, como 
muestra el ejemplo de la computadora Commodore. En la mayoría de los 
ordenadores, las teclas de flechas desplazan el cursor sobre la pantalla 
sin modificar o borrar los caracteres que puedan encontrarse en cada 
posición. Pero se puede cambiar el carácter debajo del cursor insertando 
otro diferente. Para borrar el carácter suele existir una tecla denominada 
DEL o DELETE. Otra tecla o combinación de teclas, INS o 
INSERT, sirve para insertar algún carácter adicional. 

La parte del sistema operativo que controla las funciones de teclas, 
se denomina generalmente "editor" de pantalla. En algunos ordenadores, 
como por ejemplo en el Genie, esta rutina se llama con ayuda de un comando 
especial. 

En otros modelos se encuentra siempre disponible. 


54 Diferencias en la arquitectura de pantalla 


Utilizando el editor de pantalla no se suele almacenar en memoria la 
entrada por teclado, pero en cambio se recoge en la memoria de trabajo la 
modificación que se realice en la pantalla. Los modelos Commodore y 
MZ80 son una excepción. Estos almacenan también en el programa 
comandos de control como variables de cadena de caracteres y pueden 
asimismo imprimirlas. En ocasiones pueden conseguirse caracteres de 
control mediante una combinación de teclas de letras con la tecla 
CTRL o la tecla ESC. Estos caracteres de control pueden almacenarse pero no 
pueden imprimirse. Otros ordenadores como el Genie y el TRS 80, solo 
utilizan parcialmente las teclas de flecha para desplazar el cursor. Los 
códigos originados modifican directamente la presentación y se almacenan en 
cadenas de caracteres o strings, pero no se imprimen. 
Loscaracteresdecontrol pueden utilizarse conelcomando PRIN'T CHR$como 
comandos directos o bien dentro de un programa. Normalmente se 
utilizan los valores de código decimales de O a 31, pero su significado 
suele variar de una versión a otra, como muestra la figura 5.3. 

El cursor puede desplazarse prácticamente siempre con las funciones TAB 
y PRINT yal insertar signos de coma o punto y coma en los comandos 
PRINT. Algunas versiones disponen además de otros comandos para 
posicionar el cursor. Estas son: 


PRINTAT obien PRINT (O 
Con este comando puede colocarse el cursor (en el Sinclair) en cualquier 


posición numerada de pantalla. El mismoefecto produce el comando PRINT O 
en el Genie y en el TRS 80. 


CUR(x,z) 


Lo mismo se consigue en otras versiones de Basic con la función CUR, 
indicando en el argumento las coordenadas de fila y columna. 
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HTAB y VTAB 


Estos comandos de tabulación ampliados son útiles para situar el cursor 
horizontal y verticalmente. 


CLS 


Podemos encontrar este comando en todas las versiones. Al utilizarla 
se sitúa el cursor al extremo derecho de la pantalla en posición de 
escritura. 


HOME 


Este comando aparece en algunos ordenadores, como en el Apple, para 
situar el cursor al comienzo de la escritura. 

Si el ordenador no tiene un comando directo de borrado de pantalla, se 
utiliza un subprograma en lenguaje máquina, al que se accede con CALL. 


INVERSE y NORMAL 


Algunos sistemas tienen comandos especiales para representar en la 
pantalla los caracteres en negativo (video inverso) y retornar luego a su 
operación normal. En otros ordenadores, se debe utilizar una determinada 
tecla o combinación de teclas. En general se usan diferentes códigos 
para la representación en video inverso, y para video normal. 

Puede aparecer alguna dificultad en la presentación en pantalla al 
suceder un avance rápido de línea en un texto largo. Este procedimiento se 
denomina "Scrolling". 

Para poder leer un texto largo, como por ejemplo una lista de programa, debe 
ser posible representar en la pantalla párrafos sueltos, con este objeto 
existe normalmente una tecla o combinación de teclas para detener el 
scrolling. A veces se puede disminuir la velocidad de avance de línea para 
poder leer con mas detenimiento el texto. En algunas versiones es posible 
presentar en la pantalla línea por línea. 
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Desde un programa el avance de línea sólo puede evitarse después de un 
comando PRINT con un signo de punto y coma como último carácter de la 
línea. Las restantes salidas comienzan al principio de la nueva línea, 
si no se ha dispuesto la posición del cursor en otro lugar. Algunos 
ordenadores permiten definir una ventana en la pantalla. Esto supone la 
división de la pantalla en un espacio para la presentación normal del 
ordenador y otro espacio, en el que se pueden fijar determinados textos. 


6 
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Del control de los periféricos se ocupa el sistema operativo del ordenador, 
que a su vez debe trabajar con el controlador del periférico. En los 
ordenadores personales el sistema operativo se ha confeccionado y el 
intérprete de BASIC en un mismo bloque de programa y no separados. De esta 
manera se pueden utilizar los comando BASIC para llamar y utilizar los 
periféricos. 

Ya que en este aspecto no existe ninguna estandarización, excepción 
hecha de determinados comandos que resultan similares, los fabricantes 
de ordenadores han desarrollado arquitecturas propias de Hardware y 
Software. Esto mos lleva necesariamente a no encontrar prácticamente 
similitudes entre los diferentes ordenadores y las versiones de BASIC que 
pueden ejecutarse. Para poder comprender las diferentes construcciones 
de comandos, debemos en primer lugar hacer algunas aclaraciones sobre el 
Hardware. 


6.1 Interfaces 


La salida del ordenador, por la cual se conectan los 
periféricos, se denomina interfaz (en inglés interface). En general podemos 
distinguir entre interfaces en serie e interfaces en paralelo. 

Las interfaces en serie se utilizan únicamente en los ordenadores 
personales, seencuentran normalizados con la denominación alemana V 24, y 
que en America se denominan RS 232 C. En este tipo de interface se 
utilizan diferentes niveles de tensión para representar la 
información de O y 1. Cada bit se transmite secuencialmente, uno tras 
otro, es decir, en serie. Existe una cantidad normalizada de baudios, 
bajo las cuales se entiende el número de bits que se envían o reciben por 
segundo. Con esto acaba la uniformidad, pues los restantes elementos 
necesarios para la transmisión de datos no se encuentran normalizados. 
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Es decir que la transmisión/recepción de datos, no puede realizarse de 
cualquier manera, aun y cuando ambos aparatos utilicen interfaces 
V-24. La cuota de baudios, la utilización de bits de paridad y el número 
de bits de parada se pueden ajustar frecuentemente al software o al 
hardware. Pero la forma de interpretar las secuencias de dígitos viene 
determinada por el fabricante del equipo. 

Con las interfaces en paralelo no cambia mucho el tema. En este tipo de 
interfase se transmiten 8 informaciones correspondientes a un byte en 8 
líneas paralelas. En este caso, existen asimismo las líneas de control, que 
difieren absolutamente en su significado y función, aunque existan algunas 
normas. 

La normalización mas desarrollada correspondealinterfase IEC, denominado 
asimismo IEEE-BUS. Esta interfase se diseñó originalmente para conectar 
terminales al ordenador. Por eso no se pueden conectar directamente la 
impresora o memorias externas. Se necesita la interconexión de un 
componente interfase. 

Para la conexión de impresoras existía hasta ahora una interfase 
normalizada no oficial, elaborada por un fabricante de impresoras para 
sus periféricos. Esta conexión ha sido adoptada por la mayoría de los 
fabricantes de ordenadores e impresoras. Se conoce por el nombre de 
Centronics. Si ambos elementos, ordenador e impresora disponen de una 
interfase de este tipo, no existe ningún problema para la transmisión de 
datos. No obstante se supone que el ordenador presenta los datos en código 
ASCII, ya que la mayoría de impresoras se encuentran ajustadas para el 
tratamiento de este tipo de código. 


Con frecuencia podemos encontrar en los ordenadores personales otra 
interfase, denominada USER PORT, SYSTEM BUS o algo similar. En la 
misma se encuentran las señales del microprocesador utilizado, esta 
interfase se emplea como ampliación del sistema; pero se puede utilizar 
únicamente si el hardware conectadoseencuentra perfectamente adaptado al 
tipo de procesador. En la figura 6.1 mostramos la documentación general de 
conexión de las interfaces paralelo más comunes. 
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Fig. 6.1 Existen algunas normas sobre las señales y documentación 


de los enchufes con los que se controlan los periféricos. 
Lamentablemente no podemos confiar en que estas normas se mantengan. 


6.2 Trabajando con cassettes 


Los comandos BASIC para operar con casettes son muy similares en los 
diferentes ordenadores con capacidad operativa en este sentido. No obstante, 
no es posible utilizar un programa desde un cassettes elaborado para 
otro ordenador de diferente construcción. Existe un amplio número de 
procesos de registros diferentes, asimismo son diferentes los métodos 
empleados para la transmisión de datos entre el ordenador y los diferentes 
periféricos. 
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Los comandos en los que se encuentra mayor coincidencia, son los empleados 
para almacenamiento y carga de programas hacia/desde el casette. Los 
comandos utilizados para grabar son generalmente SAVE o CSAVE y 
los empleados para cargar desde el casette LOAD o CLOAD. 

Si el ordenador tiene capacidad para operar con 2 periféricos de casette, 
puede seleccionarse uno de los dos para grabar/cargar. Normalmente puede 
escribirse el nombre del programa después del comando, y el ordenador busca 
entonces el programa en la cinta. Los periféricos de casette se conectan a 
través de una interfase especial. Algunos ordenadores pueden controlar 
automáticamente el funcionamiento del periférico activándolo o 
desactivándolo, en otros sistemas en cambio, se visualiza un mensaje por el 
monitor, que requiere una entrada de teclado. El rebobinado y avance rápido 
de la cinta debe realizarlo manualmente el usuario. 

La mayoría de ordenadores permiten al usuario comprobar sise ha efectuado 
la grabación en la cinta. Para ello se utiliza el comando VERIFY. 
En el Genie/TRS 80se dispone del comando CLOAD?. Durante esta 
verificación, se compara el programa que se encuentra aún en la memoria de 
trabajo del ordenador con el que se ha grabado en la cinta, si bien no se 
altera. 

Encontramos mayor número de diferencias en los comandos de 
almacenamiento de datos. En este caso debemos diferenciar dos procesos que 
utiliza el ordenador. Algunas versiones de BASIC, como la utilizada por 
el Genie/TRS 80 y el Apple, emplean distintos comandos para almacenar 
datos según el periférico en el que se opere, con este procedimiento el 
ordenador puede reconocer el periférico al que debe dirigir los datos 
(casette o diskette). 

De esta forma no es necesario fijar el canal de salida deseado, lo mismo 
sucede con la lectura de datos almacenados. 

Pero incluso en este caso encontramos diferencias. En el Apple sólo 
pueden grabarse datos en el casette, si se encuentran previamente en un 
campo unidimensional. Y para almacenar un campo entero es suficiente con 
el comando STORE x, siendo x el nombre del campo. En el Genie/TRS 80 se 
pueden grabar cadenas de caracteres además de números. El comando de 
grabación se denomina PRINTH4-1, y elde lectura INPUT+-1.A estecomando 
se le pueden agregar una serie de variables, todas ellas separadas por 
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comas. Naturalmente puede efectuarse la lectura y grabación en un bucle 
cuando se esta tratando un campo, en este caso el comando RETURN 
coloca un signo de separación. 

Muchos ordenadores requieren que se determine un canal de salida antes 
de cada almacenamiento de datos y que se llame directamente al 
periférico que se va a utilizar. Para ello se utiliza el comando OPEN 
seguido siempre de un único parámetro. La forma de codificar el comando y 
de elegir el parámetro es propio de cada ordenador. En general deben 
introducirse diferentes comando para "abrir", para "escribir" y para 
"leer". La entrada o salida de datos debe finalizarse en todos los casos 
con la instrucción CLOSE, toda vez que el programa deba proseguir su 
ejecución normal. 

En general se reconoce únicamente el signo de separación CR para la 
grabación y lectura. En algunos casos se permite una coma entre comillas 
(","). Algunas instrucciones de cassette aparecen en la figura 6.2. 


6.3 Control de impresora 


Para la salida de la información a través de una impresora, las diferentes 
versiones de BASIC utilizan 2 procedimientos diferentes. Por una parte 
existe un número de ordenadoresque poseen en su setde comandos una palabra 
especial para dirigir la salida a la impresora en lugar de utilizar la 
pantalla. Otros ordenadores consideran la impresora como un periférico más 
al que activan de igual forma que a los restantes periféricos. 

En el primer caso, los ordenadores Atari, Genie, TRS 80 y Sinclair emplean 
el comando LPRINT, que puede incluirse directamente en el programa. Todas 
las expresiones que sucedan a la ejecución de este comando se dirigen a la 
impresora. En el MZ 80 se debe escribir PRINT/T para que la 
información salga por la impresora. La mayoría de las versiones que operan 
de esta forma poseen un comando adicional para imprimir el listado del 
programa. Los comandos más comunes son LLIST, LIST"P", LIST/L. En el 
segundo caso se debe preparar la impresión mediante el comando OPEN, a 
continuación si se emplea el comando PRINT normal, la salida será a través 
de la impresora en lugar de hacerlo por la pantalla. 
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En la salida de datos por impresora se debe tener en cuenta que el número 
de caracteres por línea es diferente que el de un monitor. En general a la 
impresora no se transmite directamente el comando de control para el avance 
de línea; por otro lado, en la impresora se produce el avance de línea 
cuando se ha ocupado completamente una línea. 

Existen diferencias en el tratamiento de los caracteres de control del 
código ASCII en cada impresora. En general se entienden y se ejecutan 
correctamente las instrucciones de líneas y transporte de papel, aún 
cuando algunos ordenadores presenten diferentes posibilidades de elección a 
través de interruptores. Pero con otros caracteres de control cada 
impresora reacciona de forma diferente. En la figura 6.3 se reflejan 
estas diferencias con tres modelos de impresora. Especialmente difieren en 
la interpretación de secuencias de comandos con ESCAPE (código 
ASCII 27). Se utilizan en muchas computadoras para cambiar de letra 
expandida a letra condensada y para muchos ajustes previos. 


Procedimiento 


Expansión on 
Expansión off 


Condensada on 
Condensada off 
Doble impresión on 


Fig. 6.3 Los diferentes modelos de impresora reaccionan de distinta manera, cuando 
reciben caracteres de control de la computadora. En algunas impresoras se puede 
ajustar la impresión por el juego de interruptores, otros necesitan comandos de 
software. 
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Pueden aparecer dificultades en la salida impresa cuando la impresora no 
reconoce los caracteres de control codificados en los comandos y que se 
visualizan en la pantalla. También puede ocurrir que imprima otros 
caracteres en su lugar. Especialmente cuando se presentan programas 
Commodore a través de una impresora no completamente ajustada, puede 
ocurrir que ésta no reconozca los caracteres de control que aparecen en las 
cadenas de caracteres y por ello no los imprima. Si se intenta entonces 
ejecutar un programa listado de esta forma, es impredecible el resultado. El 
programa resulta presentado de forma incompleta. 


6.4 Trabajando con discos 


Los comandos empleados para la operación con diskettes y sus efectos, son 
múltiples. Una conversión de comandos ya es difícil por la simple razón de 
que existen diferentes reglas para los parámetros en el comando OPEN, para 
los nombres de los ficheros y los tipos de ficheros soportados por el DOS. 
Superficialmente puede decirse que todos los sistemas operativos de 
discos que utilizan BASIC permiten tratamientos de ficheros 
secuenciales. Nuevamentese deben abrir con OPEN. Las mayores diferencias 
las encontramos en los comandos de lectura y escritura. Frecuentemente se 
utilizan las palabras de comando INPUT y PRINT con los parámetros 
correspondientes. Normalmente se debe determinar si se desea leer o 
escribir en los ficheros. Las diferencias aparecen con los  sigmos 
empleados para separar variables. También se señala de forma diferente el 
final de una grabación. 

No existe ninguna posibilidad de comparar los ficheros de acceso 
directo o acceso libre. No coinciden ni en la denominación de 
estos datos. Algunas versiones BASIC les llaman ficheros relativos, 
otras ficheros aleatorios. Si se desea convertir un programa que 
contenga uno de estos ficheros, la porción relativa al manejo de ficheros 
deberá codificarse nuevamente. 

En los capítulos 9, 10, 11 y 16 ofrecemos algunos consejos sobre los 
comandos utilizados para el tratamiento de ficheros. 
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Muchas versiones de BASIC disponen además del juego de instrucciones 
básicas, de una serie de comandos que pueden utilizarse en el momento de 
desarrollar un programa. Pero aún careciendo de este tipo de instrucciones 
puede confeccionarse un programa que funcione correctamente. Es decir, que 
la potencia del ordenador no se refleja por el número de instrucciones que 
contiene su set básico. Un set de comandos demasiado extenso puede llevar a 
confusiones. No obstante, estas instrucciones adicionales que 
presentamos a continuación pueden resultar de gran ayuda. El objetivo de 
este capítulo no es comentar al detalle todas las posibles instrucciones, 
se describen simplemente las instrucciones que se utilizan con mayor 
frecuencia, para que el programador conozca su significado cuando necesite 
convertir un programa. 


7.1 Comandos para la ejecución de programas. 


GET o INKEYS$ 


En el lenguaje BASIC se suele utilizar la instrucción INPUT para realizar 
entradas, este comando presenta el inconveniente de que no se pueden 
agregar signos tales como la coma, los dos puntos o las comillas. Por este 
motivo la mayoría de versiones BASIC, poseen otra instrucción de entrada 
de datos, que acepta todos los valores del teclado. Se emplean para ello 
diferentes palabras clave, que tienen efectos y sintaxis diferentes como se 
puede observar en la figura 7.1. 


66 Comandos adicionales - no siempre disponibles 


10 GET A$ 
20 PRINT A$ 


10GETA$: IF A$ ="" THEN 10 
20 PRINT A$ 


10 AS=INKEY$: IF A$="" THEN 10 
20 PRINT AS 


Fig. 7.1 Además de la instrucción INPUT, la mayoría de versiones BASIC disponen de otra 
instrucción de entrada, de sintaxis y utilización diferente. Arriba un ejemplo de Apple, 
en el centro modelos de CBM y abajo un ejemplo del Genie/TRS 80. 


- 


ELSE 
La mayoría de versiones BASIC al finalizar una condición con resultado 
"falso", prosiguen la ejecución del programa en la línea siguiente. 
En muchos otros lenguajes de programación se utiliza el comando ELSE como 
alternativa en bloques condicionales. Un bloque puede componerse de una 
única instrucción o de un grupo completo de instrucciones, que se ejecutan 
únicamente si la condición ha resultado "falsa". Este comando se ha 
introducido asimismo en nuevas versiones de BASIC. 
WHILE .. WEND 
Lo mismo ocurre con la secuencia de comandos WHILE ... WEND, 
incorporados al BASIC a partir de otros lenguajes de programación 
de alto nivel. Esta secuencia de instrucciones se utiliza para controlar 
bucles con interrupción condicional. Despues de codificar WHILE se debe 
formular la condición de interrupción, que se produce después de encontrar 
el comando WEND. 
INP OUT 
En los microprocesadores del tipo 8085 y Z 80 se pueden controlar 
directamente hasta 256 líneas de salida. Los ordenadores que utilizan alguno 
de estos procesadores, poseen una instrucción para controlar estas líneas 
desde el BASIC. 
DEF FN 
Algunas versiones BASIC, poseen un comando para programar teclas de 
función. Una tecla programada puede realizar una función durante la 
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ejecución de un programa. Normalmente se permiten únicamente funciones 
numéricas. Determinados ordenadores permiten asimismo la utilización de 
cadenas de caracteres para esta instrucción. 

La figura 7.2 presenta algunas posibilidades de este comando. 


a LIST 
10 D= 4 
20 DEF FN A(D) = 3.14159 * D * D/4 
30 PRINT FN A(D) 
40 PRINT FN A(10) 
READY 
>RUN 
12. 5664 
78. 5398 
READY 


> 
b LIST 
10 INPUT X,Y,Z 
20 DEF FN A(X)=X*Y+5 
30 DEF FN B(Y)=X*FN A(Y) 
40 P = FNA(Z) : PRINT P: REM 4*3+5=17 
50 PRINT FM B(Z): REM 2*(4*4+5) 
READY 


c LIST 
10 DEF FN N5$=VN5+" "+NNG 
20 INPUT"“Nombre" ;VN$ 
30 INPUT"Apellido:*";NN$ 
40 PRINT"Mi nombre es ";fn n$ 
ready 
>run 
Nombre:? Enrique 
Apellido:? Lazaro 
Mi nombre es Enrique Lázaro 
READY 


> 


Fig. 7.2 En cada versión BASIC se emplea de diferente forma la instrucción de 
definición de funciones. Se admiten expresiones numéricas sencillas (u). Pero no 
todos los ordenadores operan con funciones anidadas (b). Tampoco es posible en todos 
los casos definir cadenas de caracteres como funciones (Cc). 
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RESTOREn 
El comando RESTORE señala al ordenador que debe leer nuevamente los 
datos - comenzando por la primera sentencia DATA - al encontrar 
una instrucción READ. En algunas versiones puede introducirse un 
número de línea después de la instrucción RESTORE. Los datos se 
comienzan a leer a partir de la línea indicada. 


CALL o SYSTEM 
Este comando lo utilizan algunas versiones BASIC para llamar y ejecutar un 
subprograma o subrutina en lenguaje máquina, la sintaxis para codificar el 
comando difiere bastante en las diversas versiones BASIC. 


WAIT 
Los ordenadoresbasados en el microprocesador 65xxposeenuna instrucción de 
pausa, que puede activarse desde el BASIC. Las reglas de utilización 
son variadas. 


USING 
La mayoría de los ordenadores presentan la edición de datos sobre el 
lado izquierdo de la pantalla, lo que puede resultar inconveniente en la 
representación numérica de esquemas o cuadros. Esto puede resolverse a 


LIST 

10 A = 1.34567 : B = 1235 : C = 768.2 
20 UÍ = "HEAR" 

30 PRINT USING U$; A, C 

40 PRINT USING U$; B, A 

50 PRINT USING U$; C, B 


READY 
>RUN 
1.35 768.20 
1235.00 1.39 
768.20 1235.00 
READY 


> 


Fig. 7.3 La instrucción PRINT USING resulta muy útil para programar la 
edición formateada o con cifras decimales redondeadas. 
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través de un subprograma en el cual se especifique el formato de la 
expresión escrita. Determinados ordenadores facilitan este formateo 
mediante la instrucción PRINT-USING, especificando de antemano el 
número de dígitos y cuantas posiciones decimales se desean al editar o 
imprimir el número. La figura 7.3 ofrece un ejemplo. 


MAT 
Existen versiones BASIC especialmente diseñadas para cálculos 
matemáticos, que contienen la instrucción MAT para las operaciones con 
matrices. 


MOD 
El operador MOD (de módulo), lo utilizan algunas versiones para calcular los 
restos de divisiones. 


BYE 
Este comando se utilizaba en principio en entornos de multiusuario, para 
desconexión de un usuario. Algunas versiones BASIC conservan esta 
instrucción si bien su utilidad es diferente. Asi en el Atari se emplea para 
llamar desde el BASIC al monitor. 


7.2 Comandos de tratamiento de errores. 


Si el intérprete BASIC encuentra un error en la ejecución de un programa, 
interrumpe el proceso y notifica el error. Esto puede resultar perjudicial, 
ya que al arrancar nuevamente el programa la memoria de trabajo se 
inicializa perdiendo su contenido anterior. Para evitar esta interrupción y 
controlar las situaciones de error, muchas versiones BASIC poseen 
instrucciones especiales. En general se emplean las siguiente instrucciones: 
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ON ERROR GOTO 
Este comando se inserta en cualquier punto del programa y en caso de 
detectarse un error durante la ejecución del mismo, el proceso bifurca a una 
rutina donde se determina el procedimiento a seguir en situaciones de error. 


ERL ERR 
En la rutina de tratamiento de errores puede detectarse el punto en el que 
se ha producido el error y de que tipo de error se trata. ERL señala el 
número de línea del error, y ERR el código de error definido por el 
ordenador. 


RESUME 
Al finalizar un tratamiento de errores, este comando permite continuar con 
la ejecución del programa. Existen asimismo otras técnicas para ello. La 
figura 7.4 muestra el ejemplo de un subprograma para tratamiento de 
errores. 
10 ON ERROR GOTO 1000 

20 INPUT A,B 

30 C = A/B 

40 PRINT C 

50 GOTO 20 

1000 IF ERR = 20 THEN 1030 

1020 PRINT"ERROR NR"; ERR/2+1: GOTO 1040 

1030 PRINT"División por O imposible” 

1040 RESUME 20 

READY 

>RUN 

7.2550 

División por O imposible 

? 25,123E300 

ERROR NR 6 

? 
Fig. 7.4 Con una rutina de tratamientos de errores se consigue evitar 
que se interrumpa el programa al encontrar un error. En el ejemplo se 
muestra un programa, en el que se produce un error de división por cero. Con 
cualquier otro tipo de error (en este caso número demasiado elevado), se 
indica el código del error. En cualquier caso se insiste en una nueva 
entrada. 
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7.3 
Comandos de ayuda a la 
programación y verificación 


Muchas versiones de BASIC poseen comandos que funcionan asimismo como 
indicaciones que facilitan la programación. Las instrucciones más 
importantes de este grupo son: 


AUTO 
Ejecutando este comando, después de cada pulsación de RETURN se inserta 
automáticamente el nuevo número de línea. Puede definirse el número inicial 
de línea y el intervalo deseado. 


EDIT 
Para corregir sentencias de programa ya confeccionadas y almacenadas, en 


80N=5 

90 A(1)= 13:A(2)=12:A(3)= 15:A(4)=11:A(5)= 14 
100 REM RIPPLE-SORT 

101 TRON 

110C=0 

120 FOR J=1 TO N-1 

130 IF A(J)<=A(J+1) THEN 150 

140 Y =A(JD):A(J)=A(J+1):A(J+1)=Y:C=1 
141 PRINT 

151 TROFF 

1601FC = 1 THEN 110 

170 FOR K=1 TO 5:PRINT A(K);:NEXT 


RUN 

<110><120><130><140><141> 
<150><130><150><130><140><141 > 
<150> <130><140><141 > 
<150><151 > 


1112131415 

READY 

>_ 
Fig. 7.5 A través del comando TRACE, permitido en algunas versiones de BASIC, se puede 
controlar perfectamente la ejecución del programa, especialmente en rutinas de 
bucles. Un ejemplo son las instrucciones de las líneas 101, 141 y 151, que sirven para 
reconocer la ejecución del programa durante la clasificación. 
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algunas versiones de BASIC se utiliza un programa especial denominado 
EDITOR. 


TRACE NOTRACE 
El comando TRACE, contenido en algunas versiones BASIC, visualiza por la 
pantalla o impresora el número de todas las sentencias que se ejecutan, a 
fin de realizar un seguimiento de la ejecución del programa. Se utilizan con 
igual finalidad lasinstrucciones TRON y FLOW, yen lugar de NOTRACE las 
instrucciones TROFF, NOFLOW y UNTRACE. Lafigura7.5 representa un 
ejemplo. 


7.4 Funciones adicionales 


Existen algunas funciones adicionalesen determinadas versiones de BASIC; 
una serie de estas funciones se utilizan únicamente para cálculos 
matemáticos (p. ej. función hiperbólica). A continuacion explicamos algunas 
de estas funciones. 


INSTR o POS 
Mediante esta función puede definirse el inicio de un string parcial dentro 
de una cadena de caracteres. El resultado es una expresión numérica. 


VARPTR 
Con esta función en algunos ordenadores (como por ejemplo el Genie/TRS 80) 
puede llamarse el apuntador que señala posición de memoria ocupada por una 
variable. Podemos ver un ejemplo en la figura 11.2. 


CDBL CINT CSNG 
En los ordenadores que permiten el cálculo con diferente precisión, existen 
muchas veces funciones que tienen como resultado la modificación de un tipo 
de variable dentro del programa. 
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Comandos gráficos, colores y tonos. 


Los programas que contienen instrucciones de gráficos resultan 
relativamente complejos y por ello son difíciles de convertir para 
ejecutarlos en diferente ordenador. En especial se utilizan diferentes 
métodos para el tratamiento de gráficos en color, esto supone el estudio 
concienzudo del manual de usuario que acompaña al ordenador, para poder 
generar este tipo de gráficos. Por esta razón no es posible en este capítulo 
explicar detalladamente la forma de trabajar con cada sistema diferente, 
presentamos únicamente algunos métodos, para que el lector compruebe el 
abanico de posibilidades que ofrece BASIC en este sentido. 


8.1 Gráficos PRINT y simbólicos 


En todas las versiones BASIC pueden tratarse graficos en la pantalla con 
ayuda de la instrucción PRINT. Los caracteres insertados como cadenas 
("string") se representan en la pantalla tal como se encuentran en la 
instrucción. De esta manera se pueden representar imágenes con ayuda 
de caracteres imprimibles. Un gran número de ordenadores permiten 
asimismo representar símbolos gráficos almacenados en el generador de 
caracteres de pantalla (Fig. 8.1). 

Empleando únicamente caracteres imprimibles y la barra de espacios, para 
representar una imagen es relativamente fácil convertir el programa para 
ejecutarlo en otro ordenador. Más problemático resulta un programa que 
utilice las funciones TAB y SPC, ya que el listado del programa es diferente 
al que presenta la pantalla. 
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ZORRO 


ge 


100 PRINT * ZORRO" 
110 PRINT TAB (4) "NAS E" 
120 PRINT TAB (6) usa" 


Fig. 8.1 Mediante la instrucción PRINT y las funciones TAB y SPC se pueden colocar los 
símbolos en cualquier lugar de la pantalla (MZ 80). 


Aún más complejo resulta la interpretación de aquellas porciones del 
programa en la que se incorporen a las cadenas de caracteres 
instrucciones de control del cursor, como por ejemplo el Commodore, que 
permite este tipo de operación. La imagen del programa prácticamente no 
se asemeja a la que realmente se genera, y además es muy difícil comprender 
el programa si no se dispone del mismo modelo de ordenador. 


8.2 Situar puntos y trazar líneas 


Para auténticas representaciones gráficas es necesario redistribuir la 
pantalla de diferente forma que la habitual de textos. Frecuentemente se 
subdivide el campo de un carácter de pantalla en 4 ó 6 campos más pequeños, 
denominados pixels. Unicamente podemos hablar de gráficas de alta 
resolución si se dispone de un mayor número de puntos por línea y columna. 
Deesta for ma se necesita mucha más cantidad de memoria para tratamiento de 
pantalla. En muy pocas versiones de BASIC ampliado, se pueden realizar 
operaciones directas a los puntos de la memoria de pantalla por medio de la 
instrucción POKE. Deesta manera pueden generarsetodas las líneas ocurvas 
que se necesiten. 

Otras versiones BASIC poseen instrucciones con las que se pueden 
dibujar o borrar puntos aislados. Con cierta frecuencia se emplea la 
instrucción PLOT, a la que deben seguir las coordenadas de la posición de 
línea y columna separadas por una coma. En el Genie y el TRS 80 se utiliza 
en su lugar la palabra SET, y las coordenadas deben incluirse entre 
paréntesis. 
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En algunas versiones existen instrucciones especiales con las palabras HLIN 
y VLIN, para dibujar líneas horizontales y verticales. Para dibujar 
círculos existe la instrucción CIRCLE. 

Para trazar líneas en una dirección determinada se utilizan las 
instrucciones PLOT o DRAW, pero no existen en todas las versiones, y en 
ocasiones se necesita más de una instrucción para realizar el trazado. 
Frecuentemente pueden  dibujarse contornos utilizando una única 
instrucción, pero las reglas de sintaxis difieren bastante. Si la versión de 
BASIC disponible, no posee instrucciones para trazar líneas, el 
trazado se realiza programando bucles, como el ejemplo de la figura 8.2. 


Número línea Número columna 


o 


Ñ 
|] 
i 4 
TT AUN 
¡ de 1 ii 
E 1111 
10 FOR A = 10 TO 30 traza la linea horizontal 
20 SET (A,6): NEXT 
30 FOR B = 1 TO 5 traza la linea vertical 


40 SET (10,5+B): NEXT 


Fig. 8.2 En el gráfico de puntos se divide la pantalla en una cuadrícula. Con 
instrucciones de programa “se puede controlar el color de cada pixel de la 
cuadrícula. Algunas versiones poseen instrucciones especiules para trazar líneas y 
círculos, otras deben programarse con ayuda de bucles. 
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8.3 Caracteres programables 


En muchos ordenadores pueden programarse los caracteres que se deseen 
utilizando una cuadrícula de 8 por 8 en la salida por pantalla. Esto 
significa que el programador puede controlar determinadas zonas de la 
memoria, de donde se extraen las muestras de puntos para la pantalla. 


LE AO E A E + 


SS uu mn 


100 A$ = “5A7E5A1818DBFFDB" 
120 CALL CHR$ (96,A$) 
130 HCHAR (2,4,96) 


SA 
7E 
SA 
18 
18 
08 
da 
DB 


Fig. 8.3 Para la programación de caracteres se utiliza una cuadrícula de 8 por 8. Cada 
línea de la cuadrícula corresponde a un byte, en el que pueden inscribirse en diferentes 
métodos una secuencia de dígitos. El ejemplo muestra la codificación en 
representación hexadecimal en el ordenador Tl 99/4. 


Tal como muestra la figura 8.3, cada posición de escritura de la pantalla se 
descompone en 8 por 8 cuadrados y cada línea horizontal se almacena en un 
byte. Cada bit de este byte con valor 1, supondrá un punto claro, y cada 
bit 0 un punto oscuro en la pantalla. 

Lamentablemente existen diferentes métodos para definir el contenido de 
estos bytes en el programa. En el Tl 99/4 se debe escribir una cadena de 
caracteres con un valor hexadecimal por byte, que se llamará desde un 
subprograma. 

En el Colour-Genie se emplea otro sistema. Con la ayuda de la instrucción 
POKE, se debe insertar en la posición de memoria destinada para ello el 
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valor decimal de cada byte. El dibujo resultante puede recuperarse con la 
funcion CHR$, de la misma manera que se realiza con otros caracteres 
imprimibles. 


8.4 Confección de paneles de figuras 


Hemos mencionado ya, que las versiones mas desarrolladas pueden 
dibujar un contorno entero con una única instrucción. Esto resulta muy 
ventajoso si se desea representar una imagen en movimiento. El ordenador 
puede almacenar la figura, y modificar su posición o dimensión en un momento 
determinado. En este caso se habla de la confección de un panel de figuras 
(SHAPE TABLE). 

En la figura 8.4 se encuentra un ejemplo de este principio. La figura se 
compone de vectores aislados, de manera quese dibujan las imágenes de forma 
sucesiva. Antes de comenzar se puede variar la longitud de los vectores con 
el factor SCALE para consequir imágenes de diferentes tamaños. Con la 
instrucción SHAPE puede selccionarse el punto inicial de la figura. Variando 
este punto un poco en cada representación, se obtiene una figura en 
movimiento. Es posible asimismo un giro de la figura mediante la instrucción 
ROT. 


8.5 Procedimiento de Color 


Para las representaciones coloreadas de la pantalla se necesita espacio 
adicional de memoria para el control de la pantalla, ya que se debe 
almacenar el tipo de carácter además de su color. Para evitar la ocupación 
excesiva de memoria en el control de pantalla, se utilizan diversos métodos. 
En la mayoría de los casos se trabaja con colores que se seleccionan 
libremente para el fondo y para los caracteres. Toda la gama de colores, 
sólo puede conseguirse con las pantallas de baja resolución, se dispone 
entonces de diferentes formas de representación en la pantalla. A mayor 
resolución de pantalla, menor variedad de colores. Cada ordenador tiene 
una serie de instrucciones distintas para la elección y representación de 
los colores. 
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Color Dirección Color Dirección 


1377. 
(128 + 8 + 1) 


136 (128 + 8) 


y» 


152 7 
(128 + 16 + 8) 


Fig. 8.4 Cada versión de BASIC tiene unas normas determinadas para el panel de figuras. 
Así por ejemplo en el Colour-Genie la figura se forma por sucesión de vectores. En 
cada byte se almacenan dos vectores. La secuencia de bits debe situarse según una 
tabla de direcciones y colores en una posición definida de memoria. 
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DO RE MI FA SOL LA SI DO 


DOY RES FAY SOLF LAS DOS 
Octava grave Octava intermedia Octava aguda 
- [en] 
DO Mayor RE Mayor MI Menor 


Aqui sin espacio 


insertar espacio 


entre CALL y SOUND 
CALL SOUND (1000,440,2) 


Duración en milésimas frecuencia(Hz) volumen 
de segundo de tono 


Fig. 85 Para generar un sonido, se utilizan dos métodos diferentes de 
programación. El primer método se acerca a la escritura musical (MZ 80). En el 
segundo método deben programarse las características físicas del tono. 


Pulsar ENTER 
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8.6 Sonidos 


En algunos ordenadores, en especial aquellos adaptados para videojuegos, se 
pueden programar sonidos y ruidos. También en este caso existen las 
versiones mas diversas, que no tienen relación con BASIC, pero van junto a 
este lenguaje. Los nuevos modelos de ordenadores presentan determinados 
elementos muy eficaces para generar tonos. Estos llegan a sonar muy bien, 
pero son relativamente difíciles de programar. En principio se emplean dos 
procedimientos de programación para generar tonos; uno se orienta a la 
escritura musical, el otro utiliza las características físicas de los 
tonos, asimismo pueden combinarse ambos métodos. En la figura 8.5 se 
muestran dos de los procedimientos mas empleados actualmente, aunque no 
trabajan con la reproducción de sonido con varios canales. 
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Particularidades de la programación con Apple 


El primer ordenador Apple fué concebido en U.S.A. como ordenador 
doméstico. Ofrecía ya representación gráfica en color, pero su intérprete 
BASIC era muy elemental. En este tiempo el campo de aplicación del Apple ha 
cambiadocompletamente y se ha convertido en una versión muy utilizada en 
el ámbito profesional y comercial. 

La versión de BASIC utilizada en estos equipos se conoce con el nombre 
de APPLESOFT y opera asimismo con coma flotante coincidiendo con las 
versiones modernas de BASIC. Conserva algunos comandos gráficos del 
primitivo Integer-BASIC, a través de las cuales pueden reconocerse los 
programas Apple. 


De esta forma tenemos en el Apple comandos de programación para activar y 
desactivar el video inverso así como para el posicionamiento del cursor en 
un determinado lugar de la pantalla. Se conservan asimismo los comandos 
para activar y desactivar puntos aislados así como para dibujar líneas 
horizontales y verticales. 

Además de gráficos de baja resolución (48 por 40 puntos), pueden realizarse 
gráficos de alta resolución con 192 por 280 puntos, pero que no comentamos 
por la dificultad de conversión del programa. 


El hardware del Apple permite conectar interiormente platinas 
complementarias en "slots" de expansión, de esta forma se consigue 
aumentar el set de instrucciones, la forma de representación de pantalla y 
la utilización de los periféricos, de tal manera que se obtienen 
variaciones sobre el APPLESOFT estándard. 

Los programas escritos en APPLE-SOFT pueden ejecutarse en otros 
ordenadores con cierta facilidad, pero únicamente si no son significativos 
los comandos de color utilizados y se emplean comandos gráficos sencillos. 
El manual del usuario del Apple contiene muchas aclaraciones sobre rutinas 
en lenguaje máquina, por ello se aplican frecuentemente en programas 
BASIC. En estos casos es muy difícil la conversión a otras versiones de 
BASIC. 
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9.1 Elaboración de programas y comandos disponibles 


APPLESOFT emplea esencialmente los mismos comandos que otras 
versiones de BASIC desarrolladas. La tabla del apéndice recoge 
sin embargo algunos comandos que no son muy habituales. Le faltan algunos 
comandos y otros producen un efecto distinto que en las versiones 
restantes. 

Las líneas de programa y las cadenas de caracteres pueden tener un máximo 
de 255 caracteres. Los nombres de las variables pueden tener mas de dos 
caracteres, pero se valoran únicamente los dos primeros caracteres y el 
signo de dóllar para las variables de cadenas de caracteres o el signo de 
tanto por ciento para las variables Integer. 

Independientemente del tipo, se utilizan 7 bits para almacenar una 
variable, tal como muestra la figura 9.1. Para diferenciar los tipos de 
variables, los caracteres de los nombres de las mismas se almacenan de 
diferente forma. Si los números no se encuentran definidos como enteros, se 
calculan con 9 posiciones de dígito. 

A diferencia de otras versiones, no se inserta un espacio antes y 
después del dígito, ni se reserva la posición del signo si el número fuera 
negativo. La comparación lógica es diferente que en las restantes versiones 
de BASIC. En el APPLESOFT se produce un resultado de "1" si la condición 
es verdadera, y un "0" si el resultado es falso. 

El comando GET funciona también de forma diferente. El teclado puede leer 
cualquier carácter. Si el ordenador encuentra este comando espera hasta que 
se introduzca un dato y lo lee sin necesidad de que se teclee RETURN. Es 
decir, que es innecesario programar un bucle. 
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9.1 

Número entero 

ler. byte del nombre(neg.) 
2do. byte del nombre (neg.) 
Byte superior del número 
Byte inferior del número 
Ceros 


Números de coma flotante 
ler. byte del nombre 

2do. byte del nombre 
Exponente 

Byte superior de la mantisa 
Siguiente byte de la mantisa 
Siguiente byte de la mantisa 
Byte inferior de la mantisa 


Cadena de caracteres (String) 
ler. byte del nombre 

2do. byte del nombre 
Longitud de la cadena 

Byte inferior del apuntador 
Byte superior del apuntador 
Ceros 


Fig. 9.1 En el Apple se utilizan 7 bits para almacenar variables, según la forma en 
la que la variable se ha almacenado, el ordenador reconoce el tipo de variable. Las 
cadenas de caracteres se almacenan en una posición de memoria junto con su longitud y un 
apuntador. Esta posición es el lugar donde se encuentra el primer carácter de la cadena. 


El teclado dispone de una tecla CTRL y otra ESC. Con ellas se pueden 
introducir una serie de comandos de control sin que se visualicen en 
la imagen o resulten impresos. Pero también pueden llamarse de la forma 
habitual con CHR$. 

Para controlar el cursor se necesita la tecla ESC y otra tecla adicional; 
las teclas de flecha sólo se utilizan para corregir en la línea que se está 
escribiendo. 

Con HTABs y VTABzse fija en el programa la posición donde debe 
comenzar la escritura. Con estos comandos se posiciona el cursor en 
cualquier lugar de la pantalla. HTABs indica la posición horizontal, 
refiriéndose a la columna de la pantalla, y VTABz la vertical, siendo z el 
número de línea. 
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En el Apple pueden reproducirse todos los caracteres imprimibles en 
representación de video inverso, es decir, oscuro sobre fondo claro. Si se 
desea este tipo de representación, se deberá escribir la instrucción 
INVERSE. Con la instrucción NORMAL se vuelve al fondo oscuro y escritura 
clara. Con el comando FLASH comienza a centellear la pantalla. Con 
NORMAL se vuelve a la presentación original. 
Para conseguir números aleatorios con la función RND, se deben 
seguir las siguientes reglas: 


argumento positivo - número aleatorio entre 0 y 1 
argumento = 0  - nuevamente el último número aleatorio 
argumento negativo - misma secuencia de números aleatorios 


Con el comando SPEED se puede variar la velocidad de salida. 

El comando TRACE establece un modo de ejecución de procedimientos 
consistente en que en la pantalla se indica el procedimiento que se está 
ejecutando en un momento dado. La operación TRACE se suprime con el 
comando NOTRACE. 

El APPLESOFT no posee comandos para la representación formateada. 
Tampoco puede ampliarse el comando IF..THEN con ELSE. En el 
resultado verdadero de una comparación se activa el valor "1", en 
el falso el "0". 


9.2 Organización de pantalla y set de caracteres 


En la ejecución normal del ordenador Apple-Il aparecen en pantalla 24 
líneas con 40 caracteres cada una. Existen dos memorias de pantalla, 
con página 1 y página 2, que comienzan en la posición de pantalla 1024 y 
2048 respectivamente. 

El almacenamiento no comienza como es habitual en orden ascendente 
empezando con la posición de memoria superior izquierda. La numeración 
comienza en la posición superior izquierda de la primera fila, pero luego se 
salta a la fila 9 y posteriormente a la 17. A continuación se sigue con 
la fila 2, la 10, la 18 y así sucesivamente (fig. 9.2). 

En las posiciones de memoria desde 49.232 (en escritura complementaria 
-16.304) a la 49.239 (-16.297) se preveen conmutadores, a los que puede 
accederse con el comando POKE, y que son de utilidad para combinar diversas 
modalidades de imagen. 
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OTAMENDI ANNNANANANANBNABIBAS 
$400 1024 al ||] yl Ml | 
$480 1151 Ml 
$500 1280 
$580 1408 
$600 1536 T 
$680 1664 | 
$700 1792 
$780 1920 | 
$428 1064 | 
$4A8 1192 
$528 1320 
$5A8 1448 
$628 1576 | 
$6A8 1704 
$728 1832 | 
$7A8 1960 | 
$450 1104 
$4D0 1232 
$550 1360 | 
$5D0 1488 
$650 1616 
$6D0 1744 
$750 1872 | 
$7D0 2000 


Fig. 9.2 Las posiciones de memoria para guardar la información de pantalla no se encuentra1 


ordenadas de forma ascendente, sino siguiendo el esquema de la figura. 
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Normalmente todas las líneas de la pantalla se ocupan, peroen el Apple 
existe la posibilidad de abrir una "ventana textual". La 
presentación en pantalla se realiza entonces únicamente dentro de la 
ventana, y lo que estuviera previamente escrito en otras posiciones de la 
pantalla se conserva. La dimensión de la ventana se determina con el 
comando POKE en las posiciones de memoria 32 a 35. 

Durante la ejecución del programa se puede  conmutar a la 
representación de textos o gráficos de baja resolución utilizando los 
comandos TEXT y GR. Para los gráficos se divide la pantalla en 48 por 48 
cuadros. Utilizando el comando PLOT x,y se puede visualizar un cuadro 
determinado. X e y son las coordenadas del punto. 

En la modalidad gráfica se pueden trazar líneas horizontales y verticales 
con los comandos VLIN  lineal,linea2 AT posición, y HLIN 
posicion1,posicion2 AT linea. Si se tiene conectado un televisor o un 
monitor a color, puede seleccionarse el color para la siguiente presentación 
con COLOR=Z. Los textos no pueden escribirse en color. 

Pueden asimismo realizarse gráficos de alta resolución con 192 por 280 
puntos, para los que son válidas únicamente determinados comandos. 
Aplicando una platina complementaria puede conseguirse una 
presentación de pantalla de 80 caracteres por cada una de las 24 líneas en 
el Apple. 

Sin una tarjeta complementaria, el Apple-II trabaja únicamente con letras 
mayúsculas. El juego de caracteres se compone de 26 letras 
mayúsculas, 10 dígitos y 28 caracteres especiales. Los caracteres se 
encuentran disponibles bajo tres números diferentes de código. Uno para 
la presentación en video inverso, otro para el centelleo y el último 
para la visualización normal. El código de pantalla no coincide con el 
código ASCU (fig. 9.3). 


9.3 Conexión con los periféricos 


Existe una clavija particular para conectar un periférico de cassette, 
la conexión de los restantes periféricos puede realizarse de varias maneras, 
ya que todas las interfases necesarias pueden conectarse en las platinas 
correspondientes en los 'slots' previstos para ello. Con los comandos INA* 
y PRA se selecciona el canal de entrada o salida para la transferencia de 
datos. 
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La impresora se conecta mediante una ficha interfase al slot número 1, 
programando los comandos PRINT"PR4A1" para reproducciones impresas. 
Este ordenador Apple posee unos comandos especiales para almacenar datos 
en cassettes, pero pueden almacenarse únicamente campos 
unidimensionales. Con STOREx se realiza el almacenamiento y con 
RECALLx se recupera nuevamente el campo completo. X es el nombre del 
campo y no se tienen en cuenta el número de elementos que el mismo contiene. 
Operando con diskettes, tenemos el DOS 3.3 que nos ayuda en la gestión de 
datos secuenciales y de acceso directo. No podemos explicar todas las 
particularidades de la gestión de datos en este libro, pero es interesante 
conocer los comandos esenciales del DOS para poder comprender los 
programas Apple operando con diskettes. 

Si «se desean emplear los comandos DOS, como comandos de 
programación BASIC, deben codificarse en un comando PRINT entre 
comillas. Previamente debe insertarse el carácter de control con el valor 
ASCII 4, que puede introducirse con la combinación de teclas 
CTRL-D. Dado que los caracteres de control no se imprimen, generalmente se 
define el carácter de control en el Apple como una variable de cadena de 
caracteres al inicio del programa. 


D$ = UU] 
Una secuencia completa para abrir un fichero sería del tipo 
100 PRINT D$;,"OPEN NOMBRE DEL FICHERO,S3,D0,V4" 


El nombre puede tener hasta 32 caracteres. Los datos posteriores son 
opcionales. En determinadas circunstancias debe insertarse antes de la S el 
número de slot, antes de la D el número de canal y antes de V el 
número del periférico. 

Se utilizan asimismo para la gestión de ficheros, los siguientes comandos 
DOS de igual forma que el comando OPEN. 
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WRITE 
Al ejecutar este comando todas las expresiones PRINT se dirigen al diskette 
en lugar de ir a la pantalla. 


READ 
Con este comando los datos se leen con INPUT desde el diskette en vez de 
esperar entradas de teclado. 


APPEND 
Utilizando este comando en lugar de OPEN, para un fichero, los datos 
pueden escribirse al final del fichero. 


CLOSE 
Finaliza la operación con un fichero. 


DELETE 
Borra un registro. 
En los registros de acceso directo es necesario especificar la longitud de 
los datos. Se especifica en primer lugar el nombre del registro, luego 
se codifica una L y a continuación la longitud. En los comandos restantes 
se debe escribir después del nombre del registro el número relativo 
correspondiente al conjunto de datos, con una R delante. 
Con los comandos siguientes se abre un registro con frases de 50 bytes de 
longitud y se lee la frase número 10 respectivamente: 


100 PRINT DS;"OPEN REGISTRO RANDOM,L50" 
120 PRINT DS;"READ REGISTRO RANDOM,R10" 


El carácter de separación entre conjuntos de datos es RETURN, es decir, 
CHR$(13). 

Es posible asimismo accionar libremente sobre un determinado byte en un 
conjunto de datos. Para ello debe insertarse en el comando WRITE o READ 
un número después de la letra B. Así se indica la posición relativa de 
un byte específico en el conjunto de datos, a partir del cual se debe 
comenzar a léer o escribir. En ambos casos la numeración comienza con 
cero. - - 
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Los programas de Apple que operan con almacenamiento de diskette, son un 
comlejos para un programador no iniciado. Los comandos PRINT e INPUT 
pueden tener distintos significados. Si aparece un WRITE antes de un 
PRINT, la información se desvía al disco. Lo mismo ocurre con el comando 
INPUT después de READ, con la que se leen datos del disco. Por el 
contrario un comando INPUT después de WRITE y uncomando PRINT 
después de READ de forma habitual. 
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La firma Commodore fue la primera que ofreció en Europa un ordenador 
personal, llamado PET. Con el tiempo han entrado en el mercado nuevas 
generaciones de ordenadores que presentan unas características 
particulares con respecto al BASIC de Commodore. 

El BASIC que aquí se utiliza fue desarrollado asimismo por la firma 
Microsoft. Pero existen algunas particularidades con respecto a otros 
dialectos Microsoft de BASIC, que dificultan la conversión de programas del 
Commodore para ejecutarlos en otros ordenadores. 

Los programas confeccionados con un ordenador Commodore pueden 
reconocerse facilmente por tres características especiales: 

- Los listados del programa tienen una serie de caracteres impresos en 
negativo. En realidad son caracteres de control del cursor. 

- Un número determinado de caracteres gráficos pueden accionarse 
directamente por el teclado o por la función CHR$. Utilizando una 
impresora apropiada, se visualizan asimismo en el listado del programa. 
- En los programas del Commodore se utiliza con frecuencia el comando 
POKE. El significado de este comando es desconocido para un 
programador que desconozca los modelos CBM. 


Los sistemas operativos varían con cada modelo de ordenador 
Commodore. Puede suceder que un programa elaborado en unordenador de la 
serie 2000 no se pueda ejecutar directamente en un ordenador CBM. 
Aunque sus sets de comandos sean los mismos. Esto tambien es válido para 
el VC 20, que utiliza un código para sus caracteres diferente al de los 
modelos CBM. Eneste caso no es necesario preocuparse, dado que el programa 
listado, se introduce nuevamente mediente el teclado. 

La conversión de programas del Commodore puede resultar muy dificil, si se 
utilizaron enel mismo los comando mencionados y se posee una impresora que 
no puede reproducirlos. 
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10.1 
Elaboración del programa 
y comandos disponibles 


Tal como se observa en la tabla del apéndice, el BASIC de Commodore 
emplea los mismos comandos que otras versiones ampliadas. Los diversos 
modelos CBM y el VC 20 poseen también el mismo set de comandos. No 
obstante, se han de tener en cuenta algunos aspectos. 

Las líneas de programa pueden tener un máximo de 80 caracteres. 
Las cadenas de caracteres pueden tener una longitud de 255 caracteres. Los 
nombres de las variables pueden ser de mas de dos caracteres, pero 
únicamente se almacenan los 2 primeros como significativos. 

Para almacenar variables se utiliza un procedimiento muy semejante al 
de la figura 9.1. Se necesitan 7 bytes por variable, pero su disposición es 
diferente. 

Se utiliza un buffer para la entrada por teclado, con el que pueden 
introducirse hasta 8 caracteres durante la ejecución del programa, y el 
ordenador los procesa a través de los subsiguientes comandos INPUT o GET. 
Los programas contienen con frecuencia comandos para borrar este 
buffer en determinados casos, sin alterar el resto. 

El comando INPUT no se utiliza con comodidad en el Commodore, ya que el 
programa se interrumpe pulsando RETURN después de INPUT en el bucle de 
espera; en su lugar se encuentra frecuentemente el comando GET, para 
requerir entroducción de datos. 

En el comando GET no se corrige el valor almacenado con la tecla INS/DEL, 
tal como ocurre con el comando INPUT, sino que se borra la pantalla. 
Para que el usuario pueda corregir una entrada, existen en los modelos 
CBM unos subprogramas que borran los caracteres erróneos de la memoria. 
El comando GET no reconoce las comillas (código 34) y se transforman en el 
bucle de entrada en una repetición de espacios. 

Los comandos de control de cursor, que se introducen por medio del teclado 
pueden almacenarse dentro de una cadena de caracteres en el programa. 
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Símbolo en adi 
en Tecla de Código 
Función pantalla control 
control . En 
(impresión) CHR$ 


Borrar pantalla 
Cursor a casa 
Cursor derecha 

Cursor izquierda 
Cursor abajo 


Cursor arriba 


Video inverso 


O 
A 
A 


Video normal 


Fig. 10.1 En los modelos Commodore se pueden producir comandos de control de cursor 
mediante las teclas y también pueden almacenarse en el programa en cadenas de caracteres 
para operar con ellas. La figura muestra la expresión que se visualizará en una lista 
de programa y su código de control. 


Entonces se visualizan en el listado del programa como caracteres 
negativos, tal como muestra la figura 10.1. Durante la ejecución del 
programa se pueden llevar a efecto los comandos de control, siempre que la 
cadena se encuentre en una expresión PRINT. 

La conmutación de video normal a video inverso, con los caracteres 
oscuros sobre fondo negro (REVERSE) se efectúa mediante comandos de 
control, que a su vez se almacenan como cadenas de caracteres. 

El BASIC del Commodore tiene dos variables de tiempo que pueden 
modificarse con el indicador de tiempo incluído en el ordenador. 
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TI contiene el intervalo de tiempo interno de 1/60 s como 
número entero. 
TIS contiene la hora, minutos y segundos sin signos intermedios. 


Esta variable se puede cambiar en el programa. 


Los ordenadores Commodore no reconocen todas los comandos de control 
activados con CHR$ (por ejemplo para retroceder el cursor al comienzo de 
la línea). En este caso se emplean comandos PRINT con cadenas de caracteres 
que contienen comandos para el cursor. 

El comando IF...THEN no puede ampliarse con la opción ELSE para los 
casos en que no se cumpla la condición. 

Si el resultado de una comparación es "verdadero", se activa el valor "- 
1", mientras que el 0 significa un resultado falso, con estos valores 
puede asimismo operarse en un programa. 

El comando PRINT-USING nose encuentra en el set estándard de 
comandos BASIC del Commodore, es necesario un subprograma para 
formatear la salida de información. 

Tampoco puede utilizarse el comando PRINT-AT para posicionar el cursoren 
un determinado lugar. En su sustitución se emplean los comandos de control 
del cursor como comandos de programa. 

Con lafunción RN Dseconsiguenpseudo-números aleatorios, peroesta versión 
de BASIC carece del comando RANDOMIZE con el que se cambia en otros 
ordenadores el número base sobre el que se calculan los números aleatorios. 
Encambio puede introducirse en el paréntesis de la función RN D una variable 
interna de tiempo en valor negativo (-Tl) y se logra el mismo efecto que 
en otros ordenadores con RANDOMIZE. 

Los ordenadores Commodore no poseen comandos para el tratamiento de 
errores, únicamente en el sistema operativo con diskettes se produce el 
mensaje de algunos tipos de error. Tampoco tienen comandos para 
activar/desactivar la función Trace. 


10.2 Organización de la pantalla 
y set de caracteres 


La longitud de la línea y el número de líneas permitidas varía de un 
modelo a otro dependiendo de la capacidad de memoria de pantalla. Los 
valores posibles son: 
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Modelo Memoria de Longitud Nro. de 
pantalla de línea líneas 
vC 20 506 Bytes 22 caracteres 23 
2000 1000 Bytes 40 caracteres 25 
3000 1000 Bytes 40 caracteres 25 
4000 1000 Bytes 40 caracteres 25 
8000 2000 Bytes 80 caracteres 25 


La memoria de pantalla ocupa diferentes posiciones de memoria, dependiendo 
del modelo y la versión BASIC. Esto significa que no es posible ejecutar 
un programa, en el que se utilice el comando POKE para activar una 
posición de memoria, en otro modelo diferente al original. La memoria 
de pantalla comienza en las direcciones siguientes (en decimal): 


En los modelos CBM = 32.768 
En el VC 20 > 7.680 


Los ordenadores Commodore presentan la particularidad de no utilizar el 
código ASCII para presentar los caracteres en la pantalla. Tienen un 
código de pantalla particular que también contiene los caracteres gráficos. 
La codificación decimal de 0 a 127 produce caracteres normales, mientras 
que los códigos del 128 al 255 generan la presentación en video 
inverso. El programador necesita estos códigos únicamente cuando trabaja 
con el comando POKE para activar la memoria de pantalla o bien para 
programar en lenguaje máquina (fig. 10.2). 

Por lo demás, disponen de dos juegos de caracteres, denominados 
'TEXT y 'GRAFICA'”. El juego de caracteres gráficos tiene además de cifras, 
caracteres especiales y para textos solamente letras mayúsculas. En 
cambio dispone de una serie de símbolos gráficos que no se encuentran en 
el juego de caracteres de textos. Este juego permite la escritura 
minúscula. Al conectar el ordenador se puede seleccionar el juego de 
caracteres con el que se desea trabajar. La conmutación al otro juego se 
realiza con el comando POKE de la siguiente forma: 

POKE 59 468,14 cambia al juego alternativo 

POKE 59 468,12 retorna al anterior 

Los caracteres especiales del idioma castellano (ñ, acentos, etc.) no se 
encuentran en ninguno de los juegos, pero existen ROM's y rutinas 
complementarias de programación para escribirlas. La codificación de 
caracteres en la memoria no se efectúa siguiendo la norma ASCII. La 
representación de un carácter ocupa los 8 bits de un byte. 
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Fig. 10.2 El código de pantalla de los ordenadores CBM no coincide con el código ASCII. 
Existen dos sets de caracteres, denominados TEXT y GRAFICA, que pueden lla marse desde el 
programa. Los valores de código a partir de 128 producen una representación en video 
inverso en pantalla, debe sumerse 128 al valor de cada código. Así por ejemplo, el 
código del carácter negativo del código 82, será 210 (82 + 128 =210). 


De esta manera disponemos de 256 combinaciones. Tal como «muestra 
la figura 10.3, se producen repeticiones. Además, un mismo código se 
interpreta de manera diferente según sea el set de caracteres empleado. 
Deben por ello analizarse detenidamente los comandos introducidos con la 
función CHR$. Frecuentemente nos encontramos en pregramas de 
Commodore comandos de control activados con la función CHR$. 
En la figura 10.1 pueden observarse algunos. 
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Es interesante para el programador poder abrir ventanas, tal como lo 
posibilitan los modelos CBM. A este efecto se sitúa el cursor en la 
esquina superior izquierda de la ventana. Para ello se utilizan comandos de 
control en una cadena de caracteres después de un comando PRINT y a 
continuación CHR$(15). De igual forma puede situarse el cursor en el ángulo 
inferior derecho con CHR$(143). Para borrar la ventana se teclea dos 
veces consecutivas el comando HOME en una cadena de caracteres. 


Número 
decimal 


Especial 
Digitos 


Control 
SHIFT 


Simbol. Simbol. 
Gráficos Gráficos 
Simbol. 

Graficos 

Simb. Gr. | Simb. Gr. 
160 a 191| 160 a 191 


Fig.10.3 Tampoco el código para la transmisión de datos en los ordenadores Commodore 
coincide con la norma ASCII. Según la modalidad en la que se encuentra el ordenador 
(textos o gráficos), se interpretan diferentes valores de código. 
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Con CHR$(1 42) se puede conmutar a la modalidad de gráficos. Esto significa 
que desaparecen los espacios para separar líneas de pantalla, con lo que 
se hallan los símbolos gráficos pegados uno junto a otro. El retorno a la 
operación con textos se realiza con CHR$(14). 

Insertando una coma después del comando PRINT, se forman columnas de 10 
caracteres cada una. Con el punto y coma se presentan las cadenas de 
caracteres sin espacios entre sí. Operando con números positivos, se 
inserta un espacio vacío antes y después del número. 


10.3 Conexión con periféricos 


Lo característico de los ordenadores de la serie CBM es su salida de 
datos según la norma para el IEC-bus (IEEE-BUS). Perose dispone asimismo 
de una salida paralela como USER PORT. No pueden conectarse los 
periféricos con ¡interfaces V24/RS-232 o impresoras con interfaces 
Centronics si no se dispone de una interfase especial. El VC 20 tiene 
interfase RS-232. Los comandos para activar estos aparatos son diferentes 
en las diversas versiones BASIC que circulan en los ordenadores Commodore. 
Para la entrada y salida en los periféricos, es decir, también para la 
impresión o el almacenamiento y lectura desde un aparato de cassettes, debe 
abrirse previamente con la correspondiente orden OPEN, tal como 
explicamos: 


OPEN nro. fichero, nro. periférico, dirección secundaria,"nombre". 


El número lógico de fichero determina el canal de entrada/salida que puede 
seleccionarse entre 0 y 255. El número de periférico se determina en una 
tabla de O a 31. Si se han conectado los periféricos originales de 
Commodore, se elige para la grabadora el número 1, para la impresora el 
número 4 y el 8 para la estación de discos. 

La dirección secundaria determina el tipo de operación o el tipo de 
transferencia de datos. Los números entre 0 y 15 se admiten. Si se 
seleccionó porel número de periférico la grabadora, significará 0 
leer y 1 escribir. 

Bajo determinadas circunstancias pueden omitirse el número de periférico, 
la dirección secundaria y el nombre de fichero. 
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Si se ha abierto el canal de salida 1, se utilizan los siguiente comandos 
para la entrada y salida. 


PRINT % número de fichero lógico, variable 
INPUT % número de fichero lógico, variable 
GET + número de fichero lógico, variable 


El signo de separación es el comando RETURN y en cadenas de 
caracteres se admite también la coma. 

Si se ha abierto un canal de salida para la impresora, se puede insertar 
la palabra (CMD. Todas los comandos siguientes con PRINT van 
directamente a la impresora. 

El Commodore-BASIC 3.0 tiene utilidades de ayuda para el manejo de discos 
y los ficheros secuenciales y el BASIC 4.0 facilita el proceso con 
ficheros de acceso directo, denominado también ficheros relativos. 
Existen diferentes normas en cada versión para el parámetro del comando 
OPEN, en BASIC 4.0 se codifica DOPEN. 

Para leer y escribir ficheros secuenciales se aplican las mismas reglas 
que con ficheros de cassettes. También existe el comando APPEND, para 
agregar datos en un fichero abierto con anterioridad. Con CONTACT se 
pueden unir distintos ficheros en uno único. 

Para los ficheros relativos se debe colocar una L en la última 
posición del parámetro del comando OPEN, a fin de indicar la longitud de la 
secuencia de datos, que se determina entonces para todo el fichero. Los 
datos numéricos pueden también introducirse como cadenas de caracteres. 
Para llamar a un juego de datos determinado de un fichero se 

utiliza el comando siguiente: 


RECORD Nro. lógico fichero, Nro. relativo de secuencia 


Teniendo también en cuenta una serie de normas. 

Para programadores que no trabajan con Commodore resulta un poco 
complicado el hecho que los programas publicados empleen diferentes 
comandos en la gestión de ficheros. 
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Esto ocurre, porque los ordenadores Commodore operan con diferentes 
sistemas de control de diskette. Podemos diferennciarfundamentalmente las 
versiones posteriores al 4.0 y las anteriores. Podemos reconocer los 
programas escritos con la version 4.0 por el comando DOPEN. Esta versión 
ofrece mayores posibilidades que las versiones anteriores, por esta razón 
no se entiende, que los nuevos modelos de esta empresa, como el VC 20 y el 
VC 64 funcionen aún con la versión antigua de DOS. 
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Level-1l BASIC para Genie y TRS 80 


Los Genie, fabricados en Hongkong, utilizan el mismo BASIC LEVEL-II 
que el del TRS 80, que según datos americanos es el ordenador personal 
mas difundido. También esta versión BASIC fue creada por la compañía 
Microsoft. Es prácticamente idéntico al BASIC 80, que suministra la misma 
empresa para otros modelos. 

Una particularidad de esta versión está en el comando CLEAR seguido de un 
número al principio del programa. Por esta particularidad es fácil 
reconocer los programas de Genie y de TRS 80. Con este comando se reserva 
espacio de memoria para archivar cadenas de caracteres, sise tienen 
más de 50 caracteres de strings en el programa. Esta reserva es 
necesaria, ya que en el microprocesador Z 80 no se encuentra montada la 
memoria de pila en la página 1, tal como en el procesador 65xx. Esta 
memoria y la memoria de cadena de caracteres se encuentran ubicadas en 
el extremo superior del RAM. 

A diferencia de otras muchas versiones, puede el BASIC LEVEL-Il 
trabajar con dos precisiónes diferentes. En el funcionamiento normal 
presenta los resultados de cálculo con coma flotante con una presición de 
6 posiciones. Si se utilizan variables de  'doble precisión", 
caracterizadas por una doble cruz (4), se pueden programar problemas que 
operen con una precisión de 16 posiciones. Algunos de los comandos no se 
encuentran en otros ordenadores, pero son fácilmente substituibles por 
otros. El BASIC LEVEL-11 original no tiene comandos para tonos ni 
para colores, y las posibilidades gráficas son muy reducidas. 
Actualmente los fabricantes de Genie y TRS 80 han sacado al mercado 
nuevos modelos que permiten dar color y generar sonidos. 
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Estos comandos adicionales que se han incorporado no son iguales, por lo que 
ya no se pueden ejecutar sobre el Color-TRS 80 programas escritos en 
el ColourGenie y viceversa. 


11.1 Confección de programas y 
comandos disponibles 


El BASIC LEVEL-II contiene todos los comandos y funciones del BASIC, 
siempre que no sean comandos gráficos, color o sonido. En las tablas del 
ápendice se enumeran todos los comandos. Tanto las líneas de programa 
como las cadenas de caracteres pueden llegar a tener 254 caracteres. El 
nombre de las variables puede tener tantos caracteres como se desee, 
siempre que el primer carácter sea una letra. No obstante en el programa 
se diferencian únicamente los dos primeros. 

Existen 4 tipos diferentes de variables caracterizadas por los siguientes 
símbolos especiales. Al mismo tiempo se pueden utilizar en el programa 
por ejemplo: 


A% como nombre de variable para número entero 

A! como nombre de variable para un número de precisión sencilla 

AX como nombre de variable para un número de doble precisión 

A$ como nombre de variable para una cadena de caracteres (string) 


No es necesario utilizar símbolos especiales en las variables numéricas 
si se prescinde de la doble precisión. La propia computadora determina el 
tipo de variable, si no lo ha hecho el programador. 


Con la ayuda de los comandos de definición 


DEFINT para números enteros 

DEFSNG para números de precisión sencilla 
DEFDBL para números de doble precisión 
DEFSTR para cadenas literales 
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Número entero 

Indicativo de número entero 
2do. carácter del nombre 

ler. carácter del nombre 

Byte inferior del nombre 

Byte superior del nombre 
Número de coma flotante 
Indicativo del número de coma flotante 
2do. carácter del nombre 

ler. carácter del nombre 

Byte inferior de la mantisa 
Byte intermedio de la mantisa 
Byte superior de la mantisa 
Exponente 

Número de doble precisión 
Indicativo de doble precisión 
2do. carácter del nombre 

ler. carácter del nombre 

Byte inferior de la mantisa 
Otro byte de la mantisa 

Byte superior de la mantisa 
Cadena caracteres 

Indicativo de la cadena (string) 
2do. carácter del nombre 

ler. carácter del nombre 

Byte inferior del indicador 
Byte superior del indicador 


Fig. 11.1 Se utilizan diferentes posiciones de memoria para almacenar los diversos 
tipos de variables (Genie y TRS 80). El ordenador reconoce el tipo de la variable 
por una cifra indicativa. 


pueden unirse al principio del programa diferentes nombres de variables 
a determinados tipos. Los nombres de variable correspondientes no 
necesitan llevar dentro del programa el indicativo del tipo. Por eso 
puede suceder en el Genie yel TRS80 que se definan variables de 
cadena al principio y en las siguientes variables de cadena falte 
el signo de dólar. Esta característica se debe tener en cuenta al 
hacer adaptaciones de programas. Enel almacenamiento de variables, se debe 
tener en cuenta el espacio necesario requerido, como indica la fig. 11.2 
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10 REM Demostracion del almacenamiento de variables 

20 A%=100 : B! = 100000: C$="MAIER" 

30 PRINT VARPTR(A%), 

40 FOR K=-3 TO 1: PRINT PEEK(VARPTR(A%)+K); : NEXT 
50 PRINT : PRINT : PRINT VARPTR(B), 

60 FOR K=-3 TO 3 : PRINT PEEK(VARPTR(B) +K); : NEXT 
70 PRINT : PRINT : PRINT VARPTR(C$), 

80 FOR K=-3 TO 2: PRINT PEEK(VARPTR(C$) +K);: NEXT 
90 PRINT: PRINT 

100 X = PEEK(VARPTR(C$) + 1) : Y = PEEK(VARPTR(C$) + 2) 
110 FORK=0TO0 4: PRINT PEEK(X + 256*Y +K);: NEXT 


RUN 

27110 2 0 65 100 0 

27115 4 0 66 0 80 67 145 
27122 3 0 67 5 o 105 


17 65 73 69 82 
READY 


> 


Fig.11.2 Con la función VARPTR el Genie y el TRS 80 permiten analizar la dirección 
física en la que se almacena la variable. Con esta función se prepara el 4to. puesto 
de memoria de la variable que se ha llamado. Su contenido se leerá con el comando PEEK. 


los números enteros 5 bytes, los números de coma flotante 7 bytes, números 
con doble precisión 12 bytes y la gestión de cadenas de caracteres 6 
bytes. El espacio de memoria donde se almacenan las variables se puede 
llamar con la funcion VARPTR. El contenido se puede leer con la funcion 
PEEK. VARPTR indica siempre sobre la cuarta posición de la memoria de la 
variable correspondiente (fig. 11.2). Para consultar mediante el teclado se 
utiliza la orden INKEY?$ en lugar de la orden habitual GET. Pero se debe 
escribir de la siguiente forma: 


10 A$ = INKEY$:IF A$ ="" THEN 10 


La palabra GET se emplea junto con un sistema operativo de discos como 
una orden de lectura. Despues de una decisión se puede usar la forma 
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ampliada de bifurcación IF... THEN ... ELSE. Sin embargo no se 
permite la utlización de ELSE. Por lo que la mayoría de los programas 
escritos en el Genie o en el TRS 80 no la tienen. 

Debido aque el microprocesador Z 80 256 puede activar directamente 
canales de entrada y salida direccionados, tiene el BASIC LEVEL-II 
comandos especiales de salida y entrada. Con INP(número de canal) recoge el 
canal un byte, y OUT (número de canal, valor) da el valor al canal. La 
función RND se utiliza con mas facilidad que en otras versiones de 
BASIC. Si se inserta en el argumento un número entero positivo, se 
generan números aleatorios entre 1 y el número introducido. Si se 
inserta el 0, se generan números aleatorios entre 0 y 1. Es interesante 
la función STRING$(m,n), con la que se generan m caracteres con el valor de 
código n de ASCII. El tratamiento de errores que presenta el BASIC 
LEVEL-II resulta muy cómodo, debido al ON ERROR. Con la función 
ERL de la rutina de tratamiento de errores se tiene en cuenta la línea en 
la que se ha encontrado el error, y con ERR directamente el código del 
error. Con RESUME número de línea, se  reanudaran las 
operaciones normales de la computadora en la línea señalada. 

La orden PRINT-USING facilita una gran variedad de posibilidades 
a la hora de formatear. Además del formato con redondeo comercial en la 
última cifra significativa, se editan también valores con un signo de dólar 
o con el signo positivo o negativo. 

Otras interesantes órdenes las encontramos en el DISK-BASIC. Al 
comenzar el DOS, utilizado en estas computadoras, se amplía el intérprete 
de BASIC, de tal modo que puede tratar las siguientes ordenes: 


LINE INPUT 
Orden de entrada de todos los caracteres. 
DEF FN 


Definición de funciones y cadenas de caracteres. 
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INSTR 
Buscar cadenas parciales. 
MID$ 
Ampliación para introducir Strings. 
CLOCK DATE TIME 


Ordenes para la edición de fecha y hora. 


11.2 Organización de pantalla 
y set de caracteres 


Las pantallas del Genie lI y II, asi como del TRS 801 y TRS 80 III, 
presentan 16 líneas de 64 caracteres. Tienen la particularidad 
de poder conmutar la edición de caracteres mediante CHR$(23) a 40 
caracteres por línea. 

El Genie Ill y el TRS 80 Il permiten la representación de 25 líneas de 80 
caracteres, mientras que en los modelos de color solo es posible 42 
caracteres por línea. 

La memoria de pantalla normal ocupa las direcciones de memoria del 15 360 
. al 16383. Estas posiciones se pueden activar con las órdenes POKE y PEEK. 
Pero existen otras posibilidades para situar los caracteres en determinadas 
posiciones de la pantalla. Por esta razón se han numerado las posiciones de 
memoria de la memoria de pantalla del 0 al 1.024, comenzando por la esquina 
superior izquierda (fig. 11.3). Con la orden PRINT (Onro,se pueden situar en 
la pantalla las ediciones que se quieran comenzando en la posición indicada 
en la orden.No se puede efectuar cualquier desplazamiento del cursor con las 
flechas, perosepuedenaccionar enel programacon laorden PRINT-CHR$. Los 
códigos son los mismos de la fig. 5.3. También se pueden realizar gráficas 
en el Genie y el TRS 80, aunque su representación no sea muy definida. La 
posición de cada signo en la pantalla se descompone en 6 partes, por lo que 
se pueden 
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15360 15423 
15424 15487 
15488 15551 
15552 15615 
15616 15679 
15680 pa 15743 
15744 3 15807 
15808 E 15871 
15872 = 15935 
15936 o 15999 
16000 E 16063 
16064 16127 
16128 16191 
16192 16255 
16256 16319 
16320 16383 


Número de posición 


Dirección decimal de la memoria de pantalla 


Fig. 11.3 Las posiciones de la pantalla se pueden controlar en el Genie y el TRS 80 de 
dos maneras, utilizando la orden POKE con las direcciones absolutas, o bien 
insertando el número de posición con la orden PRINT. 


colocar 128 puntos en las 48 líneas de la pantalla. Con las coordenadas x 
e y se determina la posición de cada punto, hallándose el origen 


de coordenadas en la esquina superior izquierda. El eje positivo de 
abcisas se orienta hacia la derecha y el eje de coordenadas hacia abajo. 


SET(x,y) 


Sitúa un punto en las coordenadas x e y. 


RESET(x,y) 


Borra un punto con las coordenadas x e y. 
POINT(x,y) 


Comprueba un punto con las coordenadas x e y. 
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Tanto para la memoria de pantalla como para la transmisión de datos se 
utiliza el código de 7 bit de ASCII en su versión estándard. Todos los 
nuevos Genie y TRS 80 tienen un generador de caracteres para producir 
mayúsculas y minúsculas y editar en la pantalla. 

Los modelos Genie y algunos TRS 80 entienden el juego de caracteres 
castellano, con lo que se pueden tratar las vocales con acento y la letra 
"ñ". Sin embargo nos lleva esto a encontrar un inconveniente con el signo de 
la potenciación. Internamente se utiliza el código ASCII 91. Este código se 
utiliza en el aleman para la"a" con acento prosódico,ñ y puede pasar que 
las computadoras comentadas reconozcan en este signo la "a" oa veces el 
corchete(l). Si se coloca un 1 en el bit superior del byte del carácter, 
resultan 128 signos adicionales. Estos se utilizan con una pequeña 
diferencia como caracteres gráficos en los modelos Genie y TRS 80. La figura 
5.2 muestra una expresión de los caracteres con los números de código de 128 
a 191 del Genie I. 

No hay la posibilidad de la representación en video inverso y el 
destello de pantalla se debe programar. Se pueden programar signos de 
uso específico. El Colour-Genie tiene comandos que apoyan esto último. 


11.3 Conexión de periféricos 


Como salida, tienen los Genie I y Il todas las conexiones de: 
microprocesadores, los modelos TRS 80 la mayoría, por lo que se puede 
montar cualquier tipo de interfase. Normalmente se conecta la impresora 
paralelamente según las normas Centronics y el dispositivo de disco a 
través de una expansión. 

Para la conexión de una o dos grabadoras existen tomas especiales. Se 
ha de insertar en los comandos de control CLOAD y CSAVE el número de la 
grabadora como número negativo! Para comprobarun programa almacenado 
sirve el comando CLOAD?. Resulta muy sencillo emplear la impresora en el 
programa. En lugar de la orden de salida PRINT se escribe LPRINT. No 
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es necesario preparar un canal de salida para la operación con 
impresora. Para listar el programa es suficiente el comando LLIST en 
lugar de LIST. 

Con las órdenes PRINT+-1, lista de variables y INPUT+*-1, lista de 
variables se pueden registrar datos en un cassette. Se puede utilizar en 
la lista de variables la coma para separar caracteres. Por supuesto 
también vale RETURN para separar. El sistema de operaciones de 
discos ofrece muchas posibilidades para la gestión de registros y para 
el análisis, modificación, comprobación y mezcla de programas escritos en 
el Genie y en el TRS 80. Se ejecutan con nombres diferentes, por ejemplo, 
TRSDOS, NEWDOS 40, G-DOS, etc. Existen tantas funciones de sistema en 
estos sistemas, que únicamente un manual bien extenso lo puede explicar 
todo. 

Además de los registros secuenciales, se agregan registros de acceso 
directo. Ni NEWDOS 80, ni G-DOS restringen en los registros la 
longitud de las frases, aunque se pueden acceder de forma directa, ya que 
les acompaña un contador de byte relativo, que también puede ser influido 
por órdenes de programa. 

En programas de Genie y TRS 80 escritos con NEWDOS 80 oG-DOS, pueden 
aparecer tipos de registros que no pueden ser tratados por otros 
sistemas operativos. Hay una serie de órdenes que no aparecen en otras 
versiones. Asi por ejemplo, se puede emplear la orden CMD"O" bajo 
muchas variantes para clasificar campos enteros. Los programas que 
utilicen estas órdenes han de ser escritos completamente de nuevo para 
otras computadoras. 
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0 ES 68 08 65 05 5000 0 
08 08 65 05 68 15 08 Y UN (a 


E STOP LPRINT LOW : FAST mx) > : + a FUNCTION 
65 63 08-68 68 06 08 (Y (Y ES 
E E 0% EN 


Fig. 12.1 Cada tecla del Sinclair ZX 81 tiene 5 diferentes posibilidades. Según que 
tecla de selección se utilice, se pueden generar  cifras/letras, órdenes, 
funciones, caracteres especiales o signos gráficos. 
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Particularidades del BASIC del SINCLAIR 


El bajo precio de las computadoras Sinclair ZX 80 y ZX 81 ha supuesto 
acceder a una gama de usuarios nueva en el mercado. En poco tiempo se ha 
alcanzado en Alemania una cuota que muchos fabricantes quisieran para 
ellos. A pesar de que no se pueda incluir el Sinclair dentro de la gama 
de ordenadores comentados hasta ahora, vamos a comentar su BASIC. 
El Sinclair ha de vigilar mas el espacio de memoria que sus hermanos 
mayores. No obstante es notable el rendimiento de su intérprete de 8- 
kbyte. Esencialmente trabaja las órdenes mas importantes, que también 
entienden las demás computadoras. 

Si se tienen en cuenta las pequeñas particularidades de las órdenes del 
Sinclair, no nos encontraremos con ninguna dificultad a la hora de 
convertir alguno de sus programas. Lo contrario resultará mas difícil, 
debido al reducido tamaño de la memoria del Sinclair. 

Existen para el Sinclair unas impresoras de papel metalizado muy 
económicas, que permiten además permiten la impresión en negativo y 
símbolos gráficos. Si aparecen estos simbolos en el programa, es fácil de 
reconocer un programa del Sinclair. Otras características de los programas 
de esta computadora son las órdenes de asignación, que van precedidas 
por la palabra LET. Las funciones llevan el argumento sin paréntesis. 
Todas las órdenes de BASIC se efectúan en el Sinclair utilizando 
sólo una tecla. La computadora escribe la orden entera en la 
pantalla. Cada tecla del Sinclair presenta 5 posibilidades (fig. 
12.1). 
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12.1 Confección de programas 
y comandos disponibles 


En la construcción del programa y en las órdenes del Sinclair hay una 
serie de particularidades. Algunas se deben a la diferente 
composición del teclado y las prescripciones que ello supone. Otra razón se 
debe a que se pretendía ofrecer un alto rendimiento del intérprete con 
tan poco volumen de memoria y por eso se hicieron las órdenes de BASIC de 
mas fácil lectura para el intérprete. Pero no podemos aqui 
concentrarnos en las condiciones que implican estas particularidades. 
Hay cuatro modos diferentes de operación, que son llamados por el teclado 
y aparecen en los diferentes signos del cursor. Cada orden introducida se 
situa en la línea inferior de la pantalla y al teclear RETURN se 
comprueban los errores de sintaxis. 

Las órdenes se pueden escribir a lo largo de varias líneas de programa y el 
propio ordenador va colocando los espacios después de cada orden aunque no 
son almacenados. No se pueden escribir sucesivas órdenes en una misma 
línea separadas por el doble punto. 

No hay límite para el nombre de las variables. Han de comenzar con 
una letra, a la que pueden seguir cualquier caracter. Todos son 
almacenados y valorados por el ordenador. Pero la variable de control en 
un bucle FOR...NEXT y como nombre de un campo solo puede ser de una sola 
letra. Antes de utilizar una variable en el programa, se le debe asignar 
con LET un valor ó 0. 

Las variables de cadenas de caracteres solo pueden contar con una letra 
seguida del signo de dólar. Se habrá fijado previamente su longitud con la 
orden DIM. Esto significa, que se recortará una cadena de caracteres, si 
se han introducido más caracteres de los permitidos, según como se 
encuentre dimensionado. Si la cadena es mas corta, quedará espacio libre 
de memoria. 

Los campos de números y cadenas de caracteres pueden serlo de varias 
dimensiones, siendo la dimensión del último campo de una cadena de 
caracteres para indicar su longitud. 

En el ZX 81 siempre se calcula con coma flotante y 9 ó 19 posiciones. No 
se ha previsto un tratamiento especial de números enteros. Como operador de 
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la potenciación se debe insertar por dos veces el signo de estrella (* *). 
En el BASIC del Sinclair no existenlas órdenes READ, DATA y RESTORE. 
También faltan ON... GOTO y ON... GOSUB. Pero las bifurcaciones 
calculadas se pueden programar con GOTO seguido de la expresión numérica. 
Esto no suele estar permitido en las restantes versiones. No se puede editar 
un texto aclaratorio en una orden INPUT. Para ello es necesario escribir 
una orden especial de PRINT. Los argumentos necesarios en las funciones no 
se colocan, como es habitual, entre paréntesis. Antes de teclear una 
función se ha de teclear otra particular que conmuta el ordenador al 
modo de operación FUNCION. 

La orden INKEY?$ se utiliza de la misma forma que GET, pero sin llevar una 
variable. En realidad se trata de una función que contiene la última entrada 
de una tecla mientras se mantenga pulsada la tecla. Para poder escribir 
una serie de caracteres con INKEY?$ en la pantalla, se ha de programar como 
sigue: 

10I1F INKEY$ <> "" THEN GOTO 10 


201F INKEY$ = "" THEN GOTO 20 
30LETAS$ = INKEY$ 

40 PRINT A3, 

50 GOTO 10 


Con PRINT AT número de línea, número de columna se puede posicionar 
sobre la pantalla una edición. La orden PAUSE n implica una breve 
interrupción de la ejecución del programa, siendo n el tiempo en 1/50 de 
segundo. 

En el Sinclair puede también el microprocesador manipular la pantalla. En 
este caso es interrumpida la ejecución del programa cada vez. Con 
ello se reduce la velocidad de cálculo. Para evitarlo, se puede 
desconectar la utilización de la pantalla con la orden FAST. En los 
siguientes pasos del programa permanecerá la pantalla oscura y se podra 
conectar nuevamente con la orden SLOW. 
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El valor del número pi aparece al llamar la función PI sin añadir 
ningún argumento. 

En lugar de la función ASC se emplea la función CODE, ya que no se 
utiliza el código ASCII para la representación de caracteres. Para 
descomponer una cadena de string no se pueden utilizar las habituales 
órdenes como LEFT$, RIGHT$ y MID$. En su lugar se usa la orden TO 
dentro de paréntesis: 


10 A$ = B$(3TO 7) 


Con esta orden se le asigna a la cadena A$ los caracteres del 3er. al 
Tmo. de la cadena B$. Como que al dimensionar queda fijada la longitud 
de la cadena, se puede de esta forma separar caracteres de la izquierda o 
derecha. 


12.2 Organización de la pantalla 
y juego de caracteres 


El Sinclair, que puede utilizar cualquier televisor como pantalla, 
permite 32 caracteres en un máximo de 24 líneas. De las cuales sólo estan 
libres las 22 superiores para el programador. Las dos últimas las utiliza la 
computadora para presentar las líneas de programa antes de incorporarlas a 
la memoria, para ¡indicar los errores y para indicar las entradas 
realizadas con INPUT. Los caracteres aparecen en la pantalla del 
televisor oscuros sobre fondo claro. 

Solo se visualiza en pantalla operando con SLOW. Con la orden SCROLL, y 
también pulsando una tecla, se desplaza el contenido de la pantalla una 
línea hacia arriba. 

La memoria de la pantalla no se encuentra en un lugar fijo, sino que se 
construye dinamicamente después del programa almacenado. Se desplaza al 
modificar el programa. 

Para la representación de los caracteres se emplea un código especial que 
no coincide con el código ASCII. Esta formulado como sigue: 
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Símbolo Código Se obtiene Símbolo Código Se obtiene 


|] 0 [3 oder e 128 1G] 
SPACE SPACE 
SHIFT + 1 SHIFT + Q 
SHIFT + 2 SHIFT + w 
SHIFT + 7 SHIFT + 6 
SHIFT + 4 SHIFT + R 
SHIFT + 5 SHIFT +8 
SHIFT + 1 ALS 
SHIFT + E SHIFT + 3 
8 G] 136 ( 
SHIFT + A SHIFT + H 
SHIFT + D SHIFT + G 
SHIFT + S SHIFT + F 


Fig. 12.2 Una parte de los símbolos gráficos se pueden pulsar directamente con una tecla 
y se pueden incorporar al programa. 
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0 a 10 Caracteres gráficos positivos 

1l a 27 Caracteres especiales 

28 a 63 Cifras y máyusculas 

64 a 66 Funciones 

67 a 111 No ocupado 
112 a 115 Movimientos del cursor 
116 a 121 Ordenes y funciones 
122 a 127 No ocupado 


128 a 191 Video inverso de caracteres O a 63 
192 a 255 Ordenes y funciones 


Hay que darse cuenta que este código contiene tanto los caracteres 
imprimibles como abreviaturas de órdenes. Conel comando PRINT AT m,n se 
puede tener una representación en cualquier lugar de la pantalla. El valor 
de m puede hallarse entre 0 y 21 y el de n entre 0 y 31. 
Puntos aislados se pueden dibujar con la orden PLOT m,n. Toda posición de 
pantalla se descompone en 4 partes, por lo que m puede estar entre 0 y 
63 y nentre 0 y 43. De la misma manera borra la orden UNPLOT m,n un 
punto de la pantalla. 
Con la orden COPY se puede imprimir el contenido de la pantalla como 
hardcopy en la impresora. Sino,se usa LPRINT para una salida porimpresora. 
Con LLIST se imprime un programa en la impresora. 
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Cuando faltan funciones o instrucciones 


En los capítulos anteriores se explicó, que existen una serie de órdenes que 
no se encuentran en todas las versiones. El que desee ejecutar un 
programa ajeno en su propia computadora, deberá saber como proceder si 
su computadora no sabe ejecutar algunas órdenes. 

Pero aún y asi existen una serie de órdenes de BASIC que no se pueden 
sustituir. Esto puede deberse a que sean diferentes los hardware de las 
diversas computadoras o también debido a distintos software operativos. 
También puede deberse a la falta de conocimiento sobre la estructura del 
hardware y el software. 


13.1 Sustitutivos de instrucciones 
de programa que faltan 


READ...DATA 


Esta instrución, con la que se pueden transmitir en el programa datos a las 
variables, esta en casi todas las versiones. Que sepamos, solo el 
Sinclair ZX 81 no la conoce. No tiene mucha importancia, ya que hay 
muchas posibilidades de escribir un programa sin la orden READ...DATA. 


Lo mas sencillo es sustituir esta orden al comienzo del programa asignando 
LET. Para esto se utiliza un poco mas de espacio de memoria. Puede 
resultar conveniente nombres de variable cortos. Lo mas fácil es sustituir 
estas órdenes por asignaciones con LET al principio del programa. Para 
ello se necesita un poco más de memoria de programa. También puede 
resultar ventajoso utilizar nombres de variable cortos. 


Otro método para almacenar datos en un campo en el programa esta descrito 
en el manual del Sinclair. Este método no es aplicable a otras 
computadoras. 
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IF...THEN...ELSE 


Muchos dialectos de BASIC no entienden la orden ELSE en una decisión de 
bifurcación. Pero los programas con esta orden son fáciles de modificar, 
tal como muestra el ejemplo: 


100 IFA=0THEN X$="correcto"ELSE X$= "incorrecto" 
110 PRINT X$ 


100 IF A=0 THEN X$="correcto": GOTO 110 
105 X$= "incorrecto" 
110 PRINT X$ 


Solamente es necesario añadir una línea con la notificación de resultado 
incorrecto y cerrar la indicación de resultado correcto con un salto. 


WHILE..WEND 


Relativamente pocas versiones de BASIC permiten utilizar otras órdenes 
para bucles que no sea FOR...NEXT. Cuando aparece esta en el programa, 
no resulta dificil sustituirla por otra construcción de bucle. La 
mayoria de las veces es mas fácil utilizar separademente las órdenes de 
decision y salto: 


100 INPUT X 
1108S=S+X 

120IFX <>O0 THEN 100 
130 PRINT "Suma = ";S 


LINE INPUT 


Ya es conocido que hay una serie de caracteres especiales como la coma, 
los dos puntos, etc. que no pueden ser introducidos con la orden 
INPUT. Por eso tienen algunas versiones la orden LINE INPUT, con la 
que pueden ser entrados todos los caracteres del teclado. 
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100 LINE INPUT A$ 

110 PRINT: PRINT A$ 

120 GOTO 100 

READY 

>RUN 

"Editorial Vogel-Verlag, Wuertzburg" 


"Editorial Vogel-Verlag, Wuertzburg" 


Esta orden se puede sustituir por un pequeño programa que contiene la 
orden GET o INKEY$. Normalmente aceptan INKEY$ o GET un solo 
carácter. Si se desea introducir un string, debe de ser compuesto. Vuelven 
a aparecer dificultades, porque al borrar un error tecleado, puede este 
desaparecer en la pantalla pero permanecer en la cadena literal 
almacenada. El siguiente programa pone remedio al problema: 


100 ES$=INKEY$: IF E$="" THEN 100 
110 PRINT E$;: D$=D$+E$ 

120 IF ASC(E$) =8 THEN L= LEN(D$)-2: D$= LEFT$(D$,L) 
130 IF ASC(E$)= 13 THEN 150 

140 GOTO 100 

150 PRINT: PRINT D$ 

160 D$="": GOTO 100 

READY 

>RUN 

"Editorial Vogel-Verlag, Wuertzburg" 
"Editorial Vogel-Verlag, Wuertzburg" 


En lascomputadoras utilizadas para este programa hay 8 códigos ASCII para 
la tecla de borrado y 13 para RETURN. En la línea 120 se pregunta si se 
empleo la tecla de borrado. Como que en el ejemplo se produce la 
composición de string D$ antes que la orden de decisión, se deben 
retirar 2 caracteres del string, el carácter equivocado y el carácter 
almacenadocon el código 8. El ejemplo demuestra que de ésta manera pueden 
entrarse asimismo todos los caracteres. En algunas computadoras aparecen 
problemas con las comillas. 


120 Cuando faltan funciones o instrucciones 


PRINT AT o PRINT O 
Si una versión de BASIC no dispone de alguna orden para posicionar 
el cursor en un determinado lugar de la pantalla, existen otras 
posibilidades para conseguirlo. 
Frecuentemente hay órdenes especiales de tabulador para situar 
horizontal y verticalmente por separado el cursor. Si tampoco las tiene, 
se puede hacer uso de PRINT sin ninguna expresión para determinar la 
línea, y con la función TAB se fija la columna. 
En las computadoras Commodore se utilizan los comandos del cursor en las 
órdenes de PRINT como asignaciones del programa. Lo mismose puede hacer 
en otras versiones pero con la función CHR$. 


PRINT USING 


Esta orden, muy útil para redondeo y edición formateada, se puede 
sustituir por un pequeño subprograma. Sobre este aspecto no estan de mas 
una serie de consejos para la programación. Seguidamente comentamos 
uno de ellos. 

Para que este programa funcione, se ha de transmitir el número 
formateado al subprograma en forma de variable numérica, y vuelve como 
variable de cadena de caracteres con el carácter para la separación. La 
posición de impresión se fija con la función TAB. Tal como se ve en la 
figura 13.1, se edita en este caso con 2 decimales y redondeo comercial en 
las milésimas. En la línea 5000 se multiplica el número por 100 y se 
le suma 0,5. Al transformarlo a un número entero desaparecen las 
cifras decimales y el número asi conseguido se convierte en una cadena 
de caracteres. Su longitud se puede fijar. 

En la línea 5020 se separan las dos últimas posiciones, son las dos cifras 
decimales del número introducido, mientras que el resto es el valor del 
número entero. Ahora sólo hace falta componer la cadena de caracteres, 
que se compone de las dos parte y el carácter para la separación de los 
decimales. Utilizando este método se puede incluso utilizar la coma para 
delimitar las posiciones decimales. 
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100 INPUT A 
110 F=A:GOSUB 5000 
120 PRINT TAB (20-1);E$ 
130 GOTO 100 
5000 F$ = STRÁ(INT(F*100 +.5)) 
5010 L = LEN(F$) 
5020 E$= LEFTS$(F$,L-2)+"," + RIGHT$(F$,2) 
5030 RETURN 
RUN 
? 12.456 
12,46 
21234 
1234,00 
? 45678 
,46 
754.6 
54,60 
? 


Fig. 13.1 Ejemplo de un programa de formateo, que se puede emplear cuando no se 
dispone de la orden PRINT-USING. 


DEF FN 


Muchas versiones ofrecen al usuario la posibilidad de definir expresiones 
matemáticas en forma de funciones en el programa. Estas se pueden luego 
llamar con una simple orden. Diferentes versiones de estas órdenes ya se 
mostraron en la figura 7.2. Si una versión de BASIC no tiene esta orden, se 
debería primero ver cuantas veces aparece en el programa que se ha de 
convertir. Si solo aparece una o dos veces, resultará bastante sencillo 
sustituirla en las líneas correspondientes por la expresión matemática 
entera. Pero si se trata de una expresión muy compleja o se hace mucho uso 
de ella, será más conveniente escribir un subprograma sustitutivo. 
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RESTOREn 


En algunas versiones se pueden recopilar datos de líneas DATA comenzando 
por un determinado número de línea. Si se ha de transformar un 
programa que utilice la orden RESTORE n, se deberan escribir de 
nuevo todas las líneas DATA, para posibilitar el acceso al dato 
correcto. Esto supone transformar completamente el programa. 


WAIT 


No siempre existe la orden que implica la espera de un cierto tiempo en 
el programa, y a veces es dificil su manejo. Es fácil sustituirla por el 
bucle FOR..NEXT cambiando solamente la variable de contador. 
Si se desea dejar a libre elección del usuario el tiempo de espera, se 
puede escribir una orden INPUT seguida de una variable string en el 
programa. Al pulsar cualquier tecla continúa el programa. 

En el Commodore existe la dificultad de que se produzca una ruptura del 
programa si solo se teclea RETURN. Y esto se puede evitar utilizando la 
orden GET. 


El operador MOD 


Algunas versiones de BASIC, sobre todo Integer-BASIC, conocen unoperador 
para calcular el resto de una división. 


100 INPUT A,B 

110 E=A/B 

120 1=INT(E) 

130 R=A-I*B 

140 PRINT A"/"B"es ";1;"resto ";R 
150 GOTO 100 
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run 
231,7 

31/7 es 4 resto 3 

? 3000,27 

3000/27 es 111 resto 3 
?100000,3 


100000 / 3 es 33333 resto 1 

v] 
Tal como se ve, se multiplica el cociente por el divisor. Sustrayendo el 
resultado del dividendo, sale el resto. Si el dividendo es negativo, arroja 
un resultado equivocado. Algunas versiones tienen además la función FIX. 
Si se inserta en lugar de INT, serán también correctos los 
resultados en el margen negativo. 


100 INPUT A,B 

110 E= A/B 

120 1=FIX(E) 

130 R=A-I*B 

140 PRINT A"/"B es ";l;"resto ";R 
150 GOTO 100 


run 
?-7,2 

-1/2es-3 resto -1 

? -3000,27 

-3000 / 27 es -111 resto -3 
> 


13.2 Sustituir funciones que faltan 


Derivadas de funciones 


En la mayoría de versiones de BASIC solo suelen estar disponibles 
directamente las funciones SIN, COS, TAN y ATN. Peroresulta fácil derivar 
los valores de las restantes funciones trigonométricas. En la figura 
13.2 podemos ver las formas usuales empleadas. 


124 


Cuando faltan funciones o instrucciones 


Derivadas 
Función 


Secante 

Cosecante 

Cotangente 

Arcoseno 

Arcocoseno 

Arcosecante 
Arcocosecante 
Arcocotangente 

Seno Hiperbólico 

Coseno Hiperbólico 
Tangente Hiperbólica 
Secante Hiperbólica 
Cosecante Hiperbólica 
Cotangente Hiperbólica 
A. Seno Hiperbólico 
Coseno Hiperbólico 
Tangente Hiperbólica 
. Secante Hiperbólica 

. Cosecante Hiperbólica 
. Cotagente Hiperbólica 


> 3 Jo de 


13.2 Practicamente 


Fig. 


Formulación de derivada 


SEC(X)=1/C0S(X) 
CSC(x)=1/SIN(X) 
COT(X)=1/TANG(X) 
ARCSIN(X)=ATN(X/SQR(-X*X+1) 
ARCCOS(X)=-ATN(X/SQR(-X*X+1)+1.5708 
ARCSEC(X)=ATN(SQR(X*X-1))+(SGN(X)-1)*1 
ARCCSC(X)=ATN(1/SQR(X*X-1))+(SGN(X)-1)*1.5708 
ARCCOT(X)=-ATN(X)+1.5708*1.5708 
SINH(X)=(EXP(X) -EXP(-X))/2 
COSH(X)=(EXP(X)+EXP(-X))/2 

TANH (O) =-EXP(-X) /EXP(X)+EXP(-X))*2+1 
SECH(X=2/(EXP(X)+EXP(-X)) 
CSCH(X)=2/(EXP(X)-EXP(-X)) 
COTH(X)=EXP (-X) / (EXP(X) -EXP(-X))*2+1 
ARCSIN(X)=LOG(X+SQR(X*X+1)) 
ARCOSH(X)=LOG(X+SQR(X*X-1)) 
ARTANH(X)=LOG((1+X)/(1-X))/2 
ARSECH(X)=LOG((SQR(-X*X+1)+1)/X) 
ARCSCH(X)=LOG((SGN(X)*SQR(X*X-1)+1)/X) 
ARCOTH(X)=LOG((X+1)/(X-1))/2 


todas las funciones utilizables se pueden derivar de las 


funciones estándard. 


Tratamiento de cadenas de caracteres 


En algunas versiones no existen las funciones LEFT$ y RIGHT$. Pero 
si se tiene la función MID$, que a veces se llama de otra forma, se 
puede separar la parte izquierda o la derecha de una cadena de caracteres. 
Ver el ejemplo. 


100 A$="Vogel Verlag Wuerzburg" 

110 B$ = LEFT$(A$,5):E$= MID$(A$,1,5) 
120 C$ = RIGHT$(A$,8): F$=MID$(A$, 14,8) 
130 D$ = MID$(A$,7,6) 

140 PRINT B$;"-";D$;"-",C$ 

150 PRINT E$;"-"D$;"-",F$ 
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run 
Vogel-Verlag-Wurzburg 
Vogel-Verlag-Wurzburg 
READY 

> 


Números aleatorios 


Algunas versiones de BASIC disponen de una asistencia especial para la 
edición de números aleatorios enteros. Asi da RND(6) solo números del 1 
al 6. Si no nos encontramos con esta posibilidad, se pueden 
generar números aleatorios enteros también con la función INT. 


100 FORK=1TO5 

110' NUMEROS ALEATORIOS DE 1 A 6 
120 P=INT(6*RND(0) +1 

130 'NUMEROS ALEATORIOS DE 6 A 10 
140 Q=INT(4*RND(0) +7 


150 PRINT P,Q 
160 NEXT 
READY 
>RUN 
3 10 
á 9 
2 10 
Z 8 
4 7 
READY 
> 


Repetición de caracteres 


Algunas versiones disponen de STRINGf3(n,a) con la que se repite n el 
carácter con código ASCII a. Se puede sustituir asignando una secuencia de 
caracteresa una variablestring. También se puede emplear para insertar una 
serie de espacios la función STRING$ en lugar de la función SPC. 
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13.3 Calculando con números de muchas posiciones 


Algunas versiones permiten calcular con "elevada precisión", o sea, con más 
posiciones de las normalmente presentadas. Con el corespondiente programa 
es posible calcular con esta precisión en todas las versiones, pero el 
cálculo semejante al que se aplica calculando sobre el papel. Como ejemplo 
mostramos un programa siguiendo este método para la adición. 

Sumando sobre un papel , se deben colocar los números de forma que coincidan 
las posiciones unas encima de lasotras. Como que la mayoría de computadoras 
almacenan números agrupados por la izquierda y sin ceros de avance, se han 
de preparar previamente las entradas de los números según este 
procedimiento. Enla primera parte del programa se descomponen los números 
en dos cadenas de caracteres de igual longitud, insertando delante del 
número más corto los espacios necesarios. 


50 INPUT"1. número";,A$ 

50 INPUT"2. número";B$ 

100 AL= LEN(A$) : BL= LEN(B$) 

110 NU$=" Ú 

120 IF AL>BL THEN B$= LEFTS$(NU$,AL-BL)+B$ 

130 IF BL>AL THEN A$= LEFT$(NU$,BL-AL)+A$ 

150 PRINTAS$ 

160 PRINTB$ 

RUN 

1. número ? 1234 

2. número ? 1234567890123456 

1234 
1234567890123456 

READY 

> ¿A 
La ejecución del programa muestra, quelosnúmeros seencuentranahora igual 
que como se escriben para sumarlos sobre un papel. La adición en concreto se 
realiza en un bucle, que ha de repetirse tantas veces como cifras 
tenga el número. En cada repetición del bucle se le añade al número una 
posición. Se ha de convertir la cifra que se halla en la cadena de 
caracteres de nuevo en un número, porque sino, no se puede completar ningun 
cálculo. 
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Perocomotampocoes posible editar números largos, se tiene que transformar 
de nuevo el resultado a una cadena de caracteres, que esta compuesta por 
cada uno de los resultados. 

210 FOR K = LEN(A$) TO 1 STEP -1 

220 A=VAL(MID$(A$,K,1)) 

240 B=VAL(MID$(B$,K,1)) 

250C=A+B 

280 C$= RIGHTHSTR$(C),N)+C$ 

290 NEXT K 


Pero el programa aun no puede trabajar correctamente porque no tiene en 
cuenta las transferencias. Además, se ha de añadir una posición delante del 
resultado final, si se ha producido una transferencia en la posición 
mas alta. Se deben añadir las siguientes instrucciones: 


200N=1:U=0 
230A=A+U:U=0 

260 1FC>=10 THEN U=1 
270IFU=1 AND K=1 THEN N=2 


La transferencia se almacena en la variable U. La variable N sirve de 
indicador por si fuera necesario una transferencia en la posición mas alta. 
En cada repetición del bucle se considera la transferencia, y luego se 
vuelve a poner Ua0. SiN = 2, se añade un número de dos cifras al 
resultado del string, sino, se elimina del resultado la primera cifra, ya 
que esta siempre se tiene en cuenta en la transferencia. En la 
figura 13.3 presentamos el programa completo. 


13.4 Cuando no hay casi nada que hacer 


En las transcripciones de programas nos podemos encontrar, sin embargo, 
con órdenes que no son sustituibles. Algunas se pueden simplemente omitir, 
pero otras son muy dificil de esquivar. Se pueden suprimir sin que conlleven 
consecuencias todas las órdenes que impliquen la presentación negativa de 
pantalla. Por ejemplo INVERSE, y la orden de retorno NORMAL. 
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10 REM adición de números enteros de 16 cifras 

20 CLEAR 1000 

50 INPUT"1.Zahl";As$ 

60 INPUT"2.Zahl";B$ 

100 AL=LEN(A$) : BL=LEN(B$) 

110 NU$=" “ 

120 IF AL>BL THEN B$=LEFTS (NU$, AL—BL)+B$:L=AL:GOTO 200 
130 IF BL>AL THEN A$=LEFTS$ (NU$, BL-AL)+A$:L=BL: GOTO 200 
140 L=AL 

200 N=1 : U=0 

210 FOR K = LEN(A$) TO 1 STEP -1 

220 A=VAL (MID$ (A$,K,1)) 

230 A=A+U : U=0 

240 B=VAL (MID$(B$,K,1)) 

250 C=A+B 

260 IF C>=10 THEN U=1 

270 IF U=1 AND K=1 THEN N=2 

280 C$=RIGHTS$ (STR$(C),N)+C$ 


290 NEXT K 

300 IF N=i GOTO 400 
310 PRINT *“ "+As$ 
320 PRINT " "+B$ 


330 PRINT STRINGS$ (L+1,61) 
340 PRINT Cs$ 

390 END 

400 PRINT A$ 

410 PRINT Bs$ 

420 PRINT STRINGS$ (L, 61) 
430 PRINT Cs$ 


1.Zahl1? 1234 

2.Zah1? 1234567890123456 
1234 

1234567890123456 


1234567890124690 

READY 

>run 

1.Zah1? 1 

2.Zah1? 99999999999799999 
Z 

PIP 


10000000000000000 
READY 
> 


Fig. 133 Programa y su ejecución para la adición de números de 16 
cifras. Siguiendo el mismo método se pueden sumar números con mas cifras. 
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Se ha de poner más atención con las órdenes que posicionan el cursor, o sea, 
que determinan la siguiente posición de escritura sobre la pantalla. Cada 
versión trabaja en este sentido de forma diferente, y en pocas ocasiones se 
puede sustituir una orden por otra equivalente. 

A veces ouede resultar más interesante ejecutar primero el programa sin 
estas órdenes de posición. La presentación en pantalla parecerá un poco 
cómica, pero si funciona el programa , se podrán arreglar estas deficiencias 
con las órdenes propias de la computadora. 

Debido a las grandes diferencias en los sistemas de operación con discos de 
cada computadora, se tiene que escribir de nuevo todas las órdenes de 
gestión de registros. Esta conversión solo es posible si se puede ejecutar 
en ambas computadoras el mismo tipo de registro. 

Resulta mas difícil cuando nos encontramos con órdenes gráficas en el 
programa. Á veces se pueden sustituir por las órdenes propias de la 
computadora, pero a menudo resulta mas útil visualizar lo que pasa en la 
pantalla, y luego decidir si se puede omitir esta parte del programa. 
Esto se asemeja al trabajo de detective, ya que primero se debe averiguar 
que se edita por la pantalla. Pero esto solo es posible si se conocen las 
órdenes y códigos de los caracteres utilizados por la computadora 
originaria en la programación. Esta parte del análisis del programa se 
lleva mejor a cabo con un papel y un lápiz, tal como se explica en el 
apartado 16.6. Cuando ya se sabe lo que sucede en el programa, se 
puede encontrar algún camino para expresarlo con las posibilidades de la 
computadora propia. 

LasórdenesPOKE y PEEK son muy incómodas sinose conoce elsignificadoen 
el programa ajeno. A veces se pueden suprimir si con ellas solo se 
conmutaban funciones de la computadora, pero también pueden tener 
una gran 


130 Cuando faltan funciones o instrucciones 


una gran importancia para el programa. Aqui se acaban todos nuestros 
esfuerzos. Si la computadora no esta equipada para ello, pueden ser muy 
difícil de sustituir las órdenes para el tratamiento de errores. Son casi 
imposibles de convertir las rutinas del lenguaje máquina del 
intérprete si son invocadas en el programa. Unicamente son conocidas 
en escasas situaciones . Entonces, lo único que se puede hacer es adivinar 
el sentido de la rutina y escribir en su lugar algo correspondiente para 
la propia computadora. 


14 


Porciones del programa 
difíciles de entender 


Si se observa un programa ajeno, se encuentra uno siempre con 
comandos sin que se reconozca en seguida su significado. En parte se debe, 
porque continuamente buscan los programadoresingeniososnuevas vías para 
programar con su ordenador. Vías que no tuvo en cuenta el fabricante del 
intérprete. 

Cada problema de programa se puede solucionar de muchas formas. Cada 
programador tiene su propio método, y si con ello aprovecha todas las 
posibilidades de su computadora, deberíamos permitírselo. Pero los 
programas que cuentan con muchos trucos son muy difíciles de "ver" por los 
usuarios que mo conozcan la computadora utilizada. Por ello sólo se 
deberían utilizar estos trucos si los programas no estan escritos para su 
publicación. También ha sucedido que el programador no ha podido entender 
su propio programa al cabo de un cierto tiempo. 

También pueden complicar la lectura de un programa los rodeos innecesarios 
que se inserten. No obstante, estos rodeos pueden estar condicionados por 
la computadora y la versión de BASIC sobre la que se ejecuta. Si no se 
tiene ahi unas determinadas órdenes, estas deberán ser repuestas por otras. 
No es posible comentar en este texto todas las variantes de programación. 
Pero se intenta aclarar con unos ejemplos en que partes se debe tener 
cuidado y como encontrar el sentido a una parte del programa que no tiene 
ni pies ni cabeza. 

Esencialmente nos encontraremos trabas al analizar un programa sobre 
todo con las siguientes órdenes o ejecuciones: 


- comparación de bifurcaciones 
- acoplamientos lógicos 
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- elección del menú 

- construcción de máscaras de entrada 

- funciones para convertir cadenas de caracteres 
- tratamiento de bits por separado 

- bucles con variación del índice 


Condición previa necesaria para descifrar partes del programa oscuras es 
que se conozca minimamamente la versión de BASIC de la computadora 
utilizada para el programa en cuestión. Se deben conocer los efectos de 
cada orden, operador etc., como se ha aclarado en los anteriores 
capítulos del libro. 

A continuación describimos algunos métodos de programación, no aplicables 
a todas las versiones de BASIC. Si al convertir un programa uno se encuentra 
con una de las siguientes órdenes, debería primero comprobar si se 
pueden realizar en su propia computadora. En su caso, se pueden 
sustituir los trucos por órdenes de programación normales. 


14.1 No siempre es posible una 
comparación reducida 


De vez en cuando nos encontramos en el programa órdenes que pueden 
ser como la siguiente: 


100 IF EOF(1) THEN 1000 


Aquí aparece una función en lugar de una expresión de comparación en una 
orden de decisión, que normalmente no esta permitido y debería aparecer 
un error de sintaxis. Para poder entender esta orden se debe saber que la 
función EOF(x) sirve en algunas versiones para marcar el final de un 
almacenamiento secuencial. 

La función da -1 cuando se llega al final del fichero del número expresado 
en el argumento. Y se indica un 0 mientras no sea el sea el caso. 
El BASIC utilizado en este caso interpreta con el -1 'verdadero' o 
'correcto' en el resultado de una comparación y prosigue con el 
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programa después de una orden THEN. Se conseguiría lo mismo si se 
escribiera la orden en toda su extensión tal como sigue: 


100 IF EOF(1) = -1 THEN 1000 


Para averiguar si la computadora opera y como con comparaciones reducidas, 
se puede emplear el siguiente programa: 


10 INPUT A 

20 IF A THEN PRINT"correcto" :GOTO 10 
30 PRINT"incorrecto" 

40 GOTO 10 


Si se introducen con INPUT diversos números se ve con claridad como 
reacciona la computadora. A continuación presentamos la ejecución del 
programa en el Genie, y se ve que todos los números positivos y 
negativos son valorados como "'correctos' y solo el cero es "incorrecto". 


RUN Verdadero 
?-1 ? 10000 
Verdadero Verdadero 
20 ?-10000 

Falso Verdadero 

21 ? 


Frecuentemente solo se puede calcular con estas cifras indicativas de 
verdadero o falso. En muchas computadoras se tiene que introducir en 
lasórdenes POKE y PEEK elnúmero de línea, cuando esta supera 32.767. Con 
la siguiente orden se realiza la transformación de forma sencilla, 
cuando la computadora indica -1 en un resultado de comparación correcto. 


Z=Z + 65536 * (Z > 32767) 
Si la comparación del paréntesis resulta falsa, se genera un 0 y no se 


modifica el número de línea Z. Pero si la comparación es verdadera, se 
genera un -1, y se resta del número de línea 65536. 
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14.2 Muchas posibilidades de 
comparaciones encadenadas 


Todas las versiones de BASIC dan diferentes números después de una 
comparación para indicar si se reconocio la comparación como correcta o 
falsa. Por desgracia tenemos dos diferentes versiones. En el Genie, 
TRS 80, BASIC 80 y en muchos otros dialectos se genera el signo -1 
para 'verdadero' y el 0 para 'falso'. Por contra tenemos el Apple que 
genera un 1 en una comparación verdadera y un 0 en la falsa. En general 
se puede operar con los valores de estos indicadores. O sea, 
ligarlos mediante operaciones de cálculo. De esta forma se evitan los 
operadores lógicos como ORo AND. Asi, en lugar de 


IFA = 5ANDB= 10 THEN 
podemos escribir. 

IF (A=5) + (B=10) = -2 THEN ... 
El siguiente ejemplo expresa la utilidad de esta técnica de 
programación. Se debe averiguar, si un número entrado se halla entre los 
valores de 6 y 9. 


10 INPUT "Número 6...9";A 

20B=(A>5+(A<10)+ NOT(A >9) 

21 PRINT A>5;¡A<10;¡NOTA >9 

30 IF B=-2 THEN PRINT"Demasiado pequeño": GOTO 10 
40 IFB=-1 THEN PRINT"Demasiado grande": GOTO 10 
50 PRINT"En el intervalo" 

60 GOTO 10 


Hay que fijarse que en la línea 20 se asigna a una variable de ayuda los 
indicativos de las tres comparaciones. En la línea 21 se editan estas 
cifras, y se puede ver, que solo se puede hallar el número en el 
intervalo si han sido reconocidas como verdaderas las tres comparaciones 


RUN 

Número 6..9? 2 
0-1-1 

Demasiado pequeño 
Número 6..9? 10 
-100 
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Demasiado grande 
Número 6..9? 7 

-1 -1 -1 

En intervalo 
Número 6..9? 


Si nos encontramos en un programa con una de estas órdenes , no quedara 
otro remedio que coger lápiz y papel y analizarlo. Quien ya conoce 
como se comporta su computadora con este tipo de órdenes, puede emplear la 
propia computadora para la investigación. Por lo demás no existe ningún 
límite establecido a la fantasía del programador sobre las posibles 
combinaciones de comparación con operadores lógicos. Pero el que desee 
escribir programas de fácil lectura, debería autolimitarse un poco en este 
sentido. 


14.3 Comprobación de varias 
entradas permitidas 


Esta técnica puede ser útil, cuando el usuario tenga varias 
posibilidades a la hora de efectuar una entrada. A menudo pregunta 
el programa por una decision de si/no. Si la computadora permite 
la escritura con mayúsculas y minúsculas, hay varias formas de entrar 
'si'” Añadiendo una sola línea de programa se puede calcular con un 
indicativo de comparación en lugar de con la interrelación OR. 


10 INPUT X$ 

20 LET V=(X$="SI") +(X$ ="si") +(X$="Si") 
30 IF V=-1 THEN PRINT"continue": END 

40 PRINT "no se introdujo si" 


Se ve que todas las entradas de 'si' son aceptadas como 
'verdaderas', ya que en cada caso se le asigna a la variable V el valor - 
1, al introducir 'SI' o 'si' o 'Si". 


RUN 

? Si 
continue 
READY 
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>run 

? Si 

continue 
READY 

>RUN 

? No 

no se introdujo si 
READY 


14.4 La negación con NOT es 
útil en las desigualdades 


Nos podemos encontrar con dificultades en algunas versiones de BASIC, si 
se formulan dos condiciones de desigualdad en una misma orden de 
decisión. El siguiente programa demuestra esta dificultad y una posible 
solución: 


5 INPUT A$ 

10 PRINT A$<>"SI" OR A$<>"si" 

20 PRINT(A$< >"SI") OR(A$< >"si") 

30 PRINT A$< >"SI" 

40 PRINTA$< >"si" 

50 IF NOT (A$="SI" OR A$="si") THEN PRINT "NO" : END 
60 PRINT "YES" 


Las órdenes de las líneas 10,20 y 30 dan el indicativo -1 tanto al entrar 
'si”' como al entrar 'no'. No se pueden distinguir, pues en todos los 
casos reconoce la computadora una condición como 'verdadera'. En la 
línea 50 se cambia la consulta de decisión por una igualdad y una 
negación. Esta claro que ahora si que es posible diferenciar cada entrada 
de 'si' de cualquier otra entrada. 
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14.5 
Seleccionando con una letra en el menú 


Después de la elección en el menú, se salta con la orden ON-GOTO a la parte 
de programa deseada. En esta orden se debe utilizar un número entero como 
valor de la variable elegida. Si se requiere introducir una letra 
indicativa en lugar de un número para facilitar el uso del menú, es 
necesario transformar las letras en números. A continuación presentamos 
un programa que realiza esta transformación mediante un bucle: 


10 PRINT "Elección del menú ": PRINT 
20 PRINT "E = Elaborar 

30 PRINT " B = Borrar 

40 PRINT "A = Añadir 

50 PRINT " D = Disponer de nuevo 

60 INPUT A$ 

70X$ = "BLAN" 

80 FORK = 1 TO 4 

90IFA$ = MID$(X$,K,1) THEN 200 
100 NEXT: PRINT" Entrada no permitida": GOTO 60 
200 ON K GOTO 1000,2000,3000,4000 
2000 PRINT "Borrar Subprograma 


En la línea 70 se encuentran resumidas las cuatro letras indicativas en 
forma de cadena de caracteres. En el siguiente bucle se comprueba si la 
entrada coincide con alguna de estas letras, y luego se interrumpe el 
bucle. El valor de la variable de control es la cifra indicadora para las 
posteriores bifurcaciones. Si no se sale del bucle es porque se ha 
introducido una letra equivocada. 


RUN 
Elección del menú 
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E = Elaborar 

B = Borrar 

A = Añadir 

D = Disponer de nuevo 
?2E 
Entrada no permitida 
?B 
Subprograma borrado 
READY 
> 


14.6 
La entrada de una máscara requiere mucha reflexión 


Por la entrada de una máscara (plantilla) se entiende una determinada 
imagen sobre la pantalla, que da explicaciones sobre entradas requeridas. 
Las entradas aparecen en una posición preestablecida. No resulta fácil 
la programación de máscaras, y por ello hay programas especiales de ayuda, 
llamados generadores de máscaras, para facilitar el trabajo. 

La problemática de los programas de máscaras se fundamenta en que cada 
versión tiene unas órdenes diferentes para posicionar el cursor. Y 
precisamente estas órdenes son la base para la programación de 
máscaras. 

En el Apple se mueve el cursor con las órdenes HTAB y VTAB. además se 
puede programar una ventana en la pantalla. Entonces todas las entradas y 
salidas se escriben dentro de esta ventana. En el resto de la pantalla no 
sucede ningún desplazamiento de línea. 

En lascomputadoras Commodore se pueden también utilizar loscomandos del 
cursor como órdenes de programa, con lo que es posible posicionar 
entradas y salidas. 

En el Genie, el TRS 80 y el Sinclair se efectúa el 
posicionamiento del cursor a través de la orden PRINT (Y o con PRINT AT. 
Basicamente también se pueden usar las funciones TAB y SPC, y cuando 
existe, la función POS para construir una máscara de pantalla. Nos 
encontramos con algunas dificultades cuando realizamos la entrada a 
través de la orden INPUT. Por eso trabajan muchos programadores 
preferiblemente con GET o INKEY$ cuando se deben realizar entradas 
con máscaras. 
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En la mayoría de versiones de BASIC también se puede desplazar el 
cursor con la ayuda de los correspondientes caracteres en la función 
CHR$. 

Los códigos son diferentes, ver fig. 5.3, pero siempre se respetan 
ciertas reglas. A través de un pequeño ejemplo lo aclaramos. 
Suponemos que para apuntar un fichero se pregunta sucesivamente 
el nombre y el apellido. Se debe programar la máscara de tal forma que 
aparezcan las dos entradas en la cuarta línea de la pantalla, después de las 
aclaraciones. 

La parte del programa necesaria para este caso puede ser como sigue: 


10CLS 

20 PRINT CHR$(26);,CHR$(26) 

30 A$="nombre, después apellido ": PRINT A$; 
40 INPUT V$ 

50 PRINT CHR$(27);A$;V$ 

60 INPUT N$ 

70 PRINT CHR$(27),A$;V$;" "¡N$ 


El programa comienza con la orden CLS, que borra la pantalla y sitúa el 
cursor en el principio. Siempre debe haber una orden de este tipo al 
comienzo de una máscara, porque si se ejecuta la orden del cursor desde 
una posición equivocada. Con la orden PRINT de la línea 20 se desplaza 
dos veces un paso el cursor hacia arriba. Además se efectúa un 
transporte de línea después de la orden PRINT. También se hubiera 
podido escribir tres órdenes PRINT vacías. Ahora tenemos el cursor al 
principio de la cuarta línea. 

Al final de la línea 30 y después de la orden PRINT debe haber un signo 
de punto y coma, para evitar el transporte de línea y que se realice la 
entrada en la misma línea que la aclaración. Como que cada orden 
INPUT implica transporte de línea, contiene la orden PRINT de la línea 
50 un carácter de control para desplazar el cursor hacia arriba. Luego 
se debe reproducir la aclaración y la primera entrada sobre la pantalla, 
porque la anterior ha sido borrada por el desplazamiento del cursor. 
Esto no sucede en todas las versiones. 
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De la misma forma se debe realizar la entrada del apellido, pero teniendo 
en cuenta que se debe añadir entre las variables para el nombre y el 
apellido un string vacío. De esta manera no aparecen pegados el nombre y el 
apellido. 


5 CLS 

10 PRINT STRING3(7,26),STRING3$(15,95); 
20" 

30" 

100 PRINT CHR$(28);STRING3(7,26); 

110 INPUT A$ 


Puede resultar mas complicado si no aparece en el programa la función 
STRING$. Entonces se debe tener a mano la tabla de código ASCII de la 
computadora en cuestión para interpretar correctamente la función. 
Con la función STRING$ de este programa se repite 7 veces el código 26. 
El cursor se desplaza una línea hacia abajo. La segunda función STRING$ 
genera 15 veces seguida la repetición de un pequeño guión, representado por 
el carácter ASCH 95. En en lugar de los guiones se escribe con la orden 
de la línea 100 la entrada requerida en la línea 110. El cursor se había 
situado inicialmente en la posición de salida (HOME) con CHR$(28) y 
luego con la función STRING$ en la misma posición que en la línea 10. 
Con este ejemplo se ven todas las consideraciones previas que se deben 
tomar en la programación de máscaras. Al utilizar otras órdenes o con otros 
efectos de las órdenes del cursor puede aparecer una máscara 
completamente distinta. Por ello sería conveniente al intentar 
convertir esta parte del programa escribirlo de nuevo en vez de tratar 
de transcribirlo. 
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14.7 Numerosas posibilidades para el 
tratamiento de cadenas de caracteres 


Al igual que las funciones numéricas, las funciones de cadenas de 
caracteres también se pueden componer con paréntesis. Pero no siempre es 
posible visionar al primer momento lo que está ocurriendo. 
Algunos programadores asignan toda entrada solamente a variables de 
cadena (strings) Y si además se introducen cifras con las que 
posteriormente se calculará, será necesario transformar las cadenas con 
la ayuda de la función VAL a un número. También puede hacerse necesario 
transformar un número en una cadena de caracteres con la función STR$. 
Por ejemplo cuando se determina la posición de una cifra en un número con 
la función LEN. 

Es necesaria la conversión de valores ASCII a los correspondientes 
caracteres, cuandose requiere la conmutación de mayúsculas a minúsculas y 
viceversa en una entrada. Sobre todo en los procesos de clasificación se 
requiere homogeneidad en las palabras. El siguiente programa se basa en el 
hecho de que los valores del código ASCII se encuentran para mayúsculas 
entre 65 y 90 y para minúsculas a partir de 97. 


10INPUTAS$ 

20 FORK = 1 TO LEN (A$) 

30 B$ = MID$(A$,K,1) 4 

40 IF ASC(B$)<97 THEN C$ = B$: GOTO 70 

50 X = ASC(B$) - 32 

60 C$ = CHR$(X) 

70 D$ = D$ + C$ 

80 NEXT 

90 PRINT D$ 

RUN 

2bERlin 

BERLIN 

READY 

A 
Como se puede ver, cada carácter de la cadena se comprueba por separado. 
Si el valor del código es inferior a 97, sólo puede tratarse de una 
mayúscula. Si noes asi, se le tiene que añadir al valor ASCII 32. Este 
número se tiene que transformar con CHR$ a un signo. 
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El efecto de las funciones LEFT$, RIGHT$ y MID$ suele coincidir en 
todas las versiones. Con MID$ se puede a veces utilizar escritura 
reducida con sólo dos argumentos en el paréntesis. Entonces edita esta 
función el resto de la cadena literal a partir de la posición 
indicada con el segundo argumento de la cadena indicada con el primer 
argumento. Veamos el ejemplo: 


10 INPUTA 

20 W$="DONAUDAMPFSCHIFFAHRTSK APITAEN 
30 PRINT MID$(W$,A) 

35 PRINT RIGHT$(W$,A) 

40 GOTO 10 

RUN 

26 
DAMPFSCHIFFAHRTSKAPITAEN 
PITAEN 

yA 

SCHIFFAHRTSK APITAEN 
RTSKAPITAEN 

?22 

KAPITAEN 


MPFSCHIFFAHRTSKAPITAEN 

> 
Para la demostración se ha añadido en el programa la función RIGHT$ para 
ver que opera de forma diferente. Es necesario que se empleen cadenas 
literales de misma longitud al almacenar datos en un fichero con longitud 
de frase fijada. Como las entradas no son todas iguales de larga se 
rellena la cadena con espacios vacíos. En el siguiente programa se puede 
ver como hacerlo: 


> 10INPUTE$ 
20L$=" 
30 A$= LEFT$(E$ + L$,25) 
40 PRINT A$+"E" 
50 GOTO 10 


En la línea 20 se forma un string de espacios vacíos, que se compondrá 
.n el argumento de la función LEFT$ con el string de entrada. 


Porciones de programa difíciles de comprender 143 


La cisura de la longitud correcta se indica con el segundo argumento. 
En la siguiente expresión se ha añadido una E para indicar que realmente 
también se han almacenado los espacios vacíos. 


RUN 

? Arbol 

Arbol E 

? Maier-Schellenberger 
Maier-Schllenberger E 
pa 


14.8 Frecuentemente resulta difícil la gestión 
de los bits por separado 


Las pequeñas computadoras que disponen de un microprocesador de 8 bits 
trabajan con 8 bits - un byte - a la vez. No obstante permiten siempre 
la gestión por bits separados. Esencialmente se trata de comprobrar en las 
ligaduras lógicas los bits, cosa que no se puede hacer en todas las 
versiones. 

Si la cuestión es averiguar por ejemplo si está el sexto bit en 1, es 
suficiente en las versiones que lo permiten una única orden. En el 
siguiente programa se comprueba un bit de diferentes entradas: 


5 INPUT A% 

10 IF (A% AND 64) = 64 THEN PRINT"6.Bit = 1": GOTO 50 
20 PRINT"6.Bit = 0" 

50 GOTO 5 
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En este caso se trabaja con una máscara en la que solo se ha puesto a 1 
el 6to. que se esta probando. El valor decimal de esta secuencia de 
dígitos, con el que pueden trabajar todos los BASIC, es 64. Ahora solo 
falta ligar la secuencia de dígitos introducida como número entero con 
la máscara mediante AND. El resultado de esta ligadura es verdadero 
solamente si se encuentra el bit Nr. 6. en la secuencia de dígitos. 
Resultaran menos claros los resultados de esta operación si no se dispone 
de gestión individual de bits. 


5 INPUT A 
10 X = A-INT(A/64)*64 : Y=(A-X)/64 

20 IF (Y+1)/2=INT((Y+1/2) THEN PRINT “6.Bit = 1": GOTO 50 
30 PRINT"6.Bit = 0" 


50 GOTO 5 

RUN Bit Nr LS > OE TOS RO E 
2 20 Valor 128 64 32 16 8 4 2 1 
6.Bit = 0 20 = 0 6 8 1-90 1 00 
?2 64 

6.Bit = 1 64 = Ú 1- 0-0 0.0, 0-0 
3-35 

6.Bit = 1 75 = 0101010 m1 
? 128 

6.Bit 128 = 10000000 
? 230 

6.Bit 230 = 1 TS TO 0.0 


Se puede observar que también en este caso tiene relevancia el número 
decimal 64 utilizado anteriormente como máscara. Pero es difícil de visionar 
el proceso. Lo mas fácil será que la computadora te ayude y calcule 
cada operación por separado. Esto puede realizarse mediante un 
programa de ayuda o con operación directa. 


10A =75 

20 PRINT A/64 

30 PRINT INT(A/64) 

40 PRINT INT(A/64)*64 

50 X = A-INT(A/64)*64 : PRINT X 
60 Y = (A-X)/64 : PRINT Y 
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RUN 

1.17188 

1 

64 

11 

1 

READY 

¿8 
Ahora hay que fijarse que la variable auxiliar X asume el resto de la 
división por 64, mientras que la variable Y almacena el cociente. La 
condición esta formulada en la orden de decisión de forma que es reconocida 
'verdadero' si Y es un número impar. Si fuera un número par, se habría 
colocado el siguiente bit superior. 
El que elabore este ejemplo verá que el programador se ha apoyado en un 
rodeo al programar. No era necesario calcular el resto de la división. 
Hubiera sido suficiente con calcular el divisor como número entero. 
Continuamente nos encontramos en los programas con rodeos de este tipo. 
Solo son reconocibles al investigar directamente la orden. 


14.9 Complicados bucles con variación del índice 


Las partes de programa mas difíciles de visualizar, son las que 
contienen bucles, en las que se va modificando la cifra del índice de 
variablescampo. En un pequeño ejemplo mostramosa lo que nos referimos. Si 
nos encontramos con este programa, no sabremos decir para que sirve. 


10 DIM A(21) : P=3.14159 

20 FOR K=1 TO 10 

30 A(2*K)=K: A(2*K+1) = P*k 
40 NEXT 


También en estos casos resulta útil recurrir a la computadora, ya que 
estas órdenes de programa las encontramos en prácticamente todas 
las versiones de BASIC. Como se confecciona evidentemente un campo, se le 
puede anexar al programa un bucle de salida. Pero para que se presente 
con claridad, se reduce bastante. Ahora se ve claramente como 
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10 DIM A(21) : P=3.14159 

20 FORK =1T0 10 

30 A(2*K)=K : A(2*K + 1)=P*K 
40 NEXT 

50 FORJ =1TO5 

60 PRINT A(J); 

70 NEXT 


RUN 

O 1 3.14159 2 6.28318 

READY 

- 
escribe la computadora alternativamente el diámetro y el perímetro 
de circunferencias en los elementos de campo. En este caso se calcula en 
cada ejecución del bucle la correspondiente cifra indicativa de la variable 
de control. 
En este sentido nos encontramos con programas de clasificación muy 
ingeniosos. Y como se ajusta la computadora a estos casos lo explicamos 
en el siguiente capítulo a través de dos ejemplos. 


15 
Como pueden analizarse los programas 


Todos los lenguajes de programación ofrecen al programador diversas 
posibilidades de escribir programas. Y BASIC no es una excepción. El 
abanico de posibilidades para configurar un programa supone, que no 
siempre resulta fácil entender un programa ajeno. En el proceso de 
datos juega una gran importancia la documentación de programa y 
frecuentemente se necesita tanto tiempo como para la misma programación. 
En los programas BASIC se puede añadir comentarios a las instrucciones. 
Algunos programadores hacen constante uso de ellos, y de cuando en 
cuando nos encontramos con programas que contienen mas líneas de 
comentarios que de instrucciones. Otros programas casi no tienen 
comentarios, ya que comentarios por si solos tampoco hacen el programa 
inteligible. 

A continuación damos algunos consejos de como se debe proceder para 
entender un programa. Es condición previa para convertir un programa 
conocer el desarrollo y significado del programa original. 


15.1 Análisis superficial de un programa 


El que se encuentre interesado en un programa ajeno, por ejemplo que 
aparezca en una revista, debería primero examinar detenidamente el 
programa antes de teclearlo en su computadora. Incluso cuando se haya 
escrito el programa en la misma computadora, vale la pena realizar un 
análisis superficial. Se deberían examinar los siguientes puntos. 
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Objetivos y resultado del programa 


No tiene sentido entretenerse con un programa que no sea útil a nuestras 
necesidades. Por eso lo primero que se debería hacer es averiguar el 
objetivo y lo que se consigue con el programa que tengamos entre las 
manos. 

La mayoría de programas publicados en revistas van acompañados de 
un texto comentario en el que se aclara lo que se pretende con el mismo. A 
veces no es suficiente con esto, ya que lo realmente importante es saber 
si se logra el objetivo. Con no poca frecuencia se encuentra uno con 
programas de título muy prometedor, que sin embargo dejan mucho que 
desear en cuanto a su rendimiento. 

Lamentablemente no es fácil de reconocer lo que nos puede aportar un 
programa. En contadas ocasiones se añade junto a la lista del programa 
aclaraciones sobre su ejecución. Quizás se debe a que resulta complicado 
en muchas computadoras la confección de un hardcopy, osea, la expresión de 
una salida de pantalla. Pero frecuentemente se puede reconocer por las 
órdenes PRINT lo que se obtendrá como resultado al ejecutar el programa. En 
todo caso es fácil de ver si se necesita una impresora para su ejecución, y 
con que tipo de memoria trabaja. 

Poco sentido tendrá entretenerse con un programa del que nose domine el 
problema básico. Si no se conocen las operaciones matemáticas empleadas en 
un programa, resultará éste imposible de entender. Lo mismo vale para un 
programa de juegos. Sólo se puede entender si se conocen las reglas 
del juego, o son explicadas por el programa. 


Tipo de ordenador empleado 


No siempre se indica en el texto de acompañamiento sobre qué ordenador 
se hizo el programa. Esta cuestión es importante para poder proceder, y 
en estos casos se deberían buscar los caracteres típicos para poder 
determinar el tipo de computadora. 

Los programas de Apple se pueden reconocer porque las líneas de programa 
abarcan varias líneas de impresión, comenzando las líneas restantes en la 
columna después del número de línea. También es típico encontrar en los 
programas de Apple órdenes como INVERSE, NORMAL,VTAB y HTAB. 
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Los programas de Commodore presentan frecuentemente en video inverso las 
órdenes de control dentro de una cadena de caracteres. Otra 
característica de esta computadora es la frecuente utilización de la 
función CHR$, también es típico utilizar la orden GET con salto en la 
misma línea para requerir entradas. 

Los programas del Genie y el TRS 80 comienzan casi siempre con la orden 
CLEAR para reservar espacio de memoria para las cadenas de string. 
también podemos encontrar la orden PRINT (O, que no es muy habitual. La 
orden INKEY$ es también común en estos programas. Otra forma de 
poder deducir este tipo de computadoras se basa en que se define las 
variables con la orden DEF... o se caracteriza el nombre de la variable con 
%,!o bien A. 


Programas de difícil análisis 


Debería ser mas fácil resolver un problema de programa con el propio 
programa, que examinar un programa disponible en busca del camino de 
resolución. Se desaconseja la conversión de un programa ajeno en los 
siguientes casos. 

Programas spagheti Un programa con excesivos saltos puede 
resultar tan ininteligible, que no se reconozcan los módulos, por lo 
que no debería molestarse uno innecesariamente en descifrarlo. En 
estos tipos de programas se han programado muchas "mochilas". Se trata 
de secuencias de control imputadas a órdenes de salto. 

Programas POKE y PEEK En algunas computadoras es inevitable 
utilizar POKE para accionar determinadas funciones del programa. Quien 
haya trabajado con una de estas computadoras, sabrá interpretarlas 
correctamente. Pero cuando se utilizan excesivamente en un programa 
las órdenes PEEK y POKE, será muy difícil que se aclare una persona ajena 
a él. 

Utilización de lenguaje máquina Los programas en los que 
se utilizan o son llamadas rutinas escritas en lenguaje máquina son poco 
claros. Una persona no experta en la materia debería desistir de 
analizar o entender este tipo de programas. 
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15.2 Módulos de programa, ejecución 
y lista de variables 


Nosiempreesposibleencontrar programas de BASICtan claros y comentados 
como el de la figura 15.1. Los tres puntos siguientes con los que se 
debería comenzar todo análisis de programa deberían ser reconocibles a 
simple vista. 


Estructuración en módulos de programa 


Todo programa decente debería estar estructurado, estar dispuesto 
en módulos cerrados con una sola entrada y una salida. El autor descompone 
en el ejemplo el programa en cada uno de los módulos de tal forma que sea 
inteligible para cualquiera. Para ello ha precisado de mucho espacio de 
memoria y papel. 

Hay otros programas que no presentan su estructura con tanta claridad. Esto 
no quiere decir que el creador del programa no tenga en cuenta la 
estructuración. El primer paso para delimitar cada bloque de la estructura 
sera comenzar un bloque con números enteros de línea cada 100 o 1000 (fig. 
15.4). 

Utilizando una serie de guiones en el margen del programa va marcando el 
autor cada módulo. Resulta muy útil caracterizar ópticamente los bucles, 
a la vez que se debe fijar uno en las anidaciones de bucles. también es 
importante marcar con claridad las líneas que son el destino de una orden de 
salto o comienzo de un subprograma. Del mismo modo se debe proceder 


100 : PRINT "3" 


110 : PRINT * INSTRUCTOR DE CONDUCIR 
111 2 PRINT % 0 rn - 
nas 

120 REM JUEGO SENCILLO DE HABILIDAD 

121 : 


130 :PRINT “USTED CONDUCE EL COCHE '+' CON LAS TECLAS 
135 :PRINT "1 (A LA IZQUIERDA) Y 2 (A LA DERECHA) 
140 : 

150 : PRINT : PRINT “PULSAR TECLA! 

155 : GET AS : IF AS = * * THEN 155 

190 : 


510 


520 : 
s30 : 
540 : 
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REM INICIALIZACION 222222 
: LET 8 = 10 : REM ANCHO DE LA CALLE 
: LET W = 100 : REM CONSTANTE DE TIEMPO PARA BUCLE DE ESPERA 
: LET AR = 20 : REM MARGEN IZQUIERDO 
: LET RR = LR + B : REM MARGEN DERECHO 
LETP = 24 : REM POSICION INICIAL DEL COCHE 
LETM=0 : REM numero DE PUNTO 
REM ---- CONTROL DEL COCHE =================- 
: GET T5 
2 IF Tg <> " " THEN 325 : REM SE PULSO LA TECLA DE CONTROL 
: FORT = 1 TOM  : NEXT 1 : GOTO 360 :REM SE RETRASO 
: 1F NOT <T5 = "1" OR Tg + "¿" > THEN Nh») : REM CONTROL DE ENTRADA 
: IF T5 = "1" THEN LET P=P-1 : GOTO 360 : REM COCHE A LA IZQUIERDA 
: LET P=P+1 
: IF P=LR OR P=RR THEN 600 : REM SE HA 1DO A LA CUNETA 
: LET M=M 
REM ---MOVIMIENTO CASUAL DE LA CALLE =====ooooooo- 


: LET X ( 3*RND(TI))-1 


: IF X= -1 THEN LET Dg=" / " :GOSUB 500 :GOTO 310 


550 : 


: IF X= +1 THEN LET Df=" ” :GOSUB 500 :GOTO 310 
: LET Dg=" 1 * :GOSUB 500 :GOTO 310 
REM +++ SUBPROGRAMA "CAMBIO DE LAS COORDENADAS DE LA CALLE" +++++++ 
LET LR=LR +x : REM MARGEN IZQUIERDO 
IF LR<1 THEN LET LR=1 : REM CONTROL IZQUIERDA 
LET RR=RR+8 : REM MARGEN DERECHA 
IF RR<39 THEN LET LR =29 : GOTO 530 :REM CONTROL DERECHA 
: PRINT TAB(LR) Dg; TAB(P) "»"; TAB (RR) D5:REM MOSTRAR LA CALLE 
- RETURN 
REN AALOMACION e es doin 
: PRINT TAB(P) " CRAC!1 1" 
: PRINT : PRINT 


: PRINT “HA OBTENIDO "M" PUNTOS. 


: FOR 1=1 TO 1500 : NEXT 1 
: PRINT * * : GOTO 200 : REM EL JUEGO COMIENZA DE NUEVO 


Fig. 15.1 programa INSTRUCTOR DE CONDUCIR 
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152 Cómo pueden analizarse los programas 


en los lugares del programa donde se hallan las correspondientes 
órdenes de RETURN. 

Otros lugares interesantes de marcar son las salidas, ya sean de 
transferencia , de una orden de salto o de una llamada a un subprograma. 
Sobre todo es necesario si estas órdenes no se encuentran al final de 
la línea, como debería ser en un programa correcto. 


Reconocer la ejecución del programa 


El siguiente paso será ver como funciona el programa. Lo mejor es 
representarlo en un organigrama. 

Al dibujar un organigrama, no se debe concentrar uno en los detalles sino 
intentar resumir el concepto basico del programa. Es suficiente utilizar un 
símbolo para cada módulo, aunque hay otros que necesitan de mas detalles. 
Sobre todo se debe expresar con claridad las posibles bifurcaciones debido a 
una orden de decisión. Lo mismo se ha de tener en cuenta con los saltos. 
No es necesario tener en cuenta los saltos correspondientes a bucles dentro 
de un mismo módulo. Lo que no debe faltar son las salidas de cada módulo. 
En la figura 15.2 representamos el diagrama de flujo del programa de la 
figura 15.1. 

Si el programa es pequeño, se puede marcar sobre la misma lista de 
programa la ejecución del mismo. Existe otra posibilidad de 
representar el programa para el que le resulte incómodo dibujar un 
organigrama. Se trata de escribir una lista de ejecución que contiene el 
número de las líneas donde hay órdenes de decisión, instrucciones de 
bifurcación o el objetivo de ésta. Este tipo de lista resulta muy útil para 
tener una idea sobre un programa en cuestion. En la figura 15.3 
representamos el mismo programa anterior de la figura 15.1 pero en forma 
de lista de ejecuciones con las líneas importantes. 

Hay que poner especial atención sobre los subprogramas. Muchos 
programadores utilizanla orden GOSUB, cuando hubiera sido suficiente la 
orden GOTO. Estassirven para proseguir el programa después de un llamada 
en el mismo sitio. Al analizar un programa con muchas órdenes de GOSUB, 
resulta difícil ver donde prosigue el programa después del subprograma 
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100 


210 


310 
Entrada 
com. control 


Ha caído 
en la cunetg 


370 
Incrementar 
cont. puntos 


420 
Calcular nro. 
aleatorio X 
500 
Caracter impr. Variar margen GOTO 
impresión / de la calle 310 
Caracter impr. Variar margen 
e impresión / de la calle 
a Caracter impr. Variar margen 
impresión / de la calle 


GOTO 
310 


630 

Señalar 

puntos Fig. 15.2 

650 Organigrama del programa INSTRUCTOR DE CONDUCIR 
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hd 500 
430 —»1/5001 > 
| 590 


435 ——=|/500|| 
440 ——»1500|| 
600 


660 


Fig. 15.3 Lista de ejecución de líneas del programa 
INSTRUCTOR DE CONDUCIR 


deben estar bien claros los lugares de retorno al programa principal 
después de la llamada a un subprograma. 


Relación de la lista de variables 


Después de analizar con detenimiento el programa ya se sabe lo que ocurre 
en el programa. Pero si se decide examinar a fondo determinadas órdenes 
es necesario componer una lista de variables, si no la presenta el 
propio programa. 

La composición de esta lista de variables puede semejarse al trabajo de un 
detective. Lo mejor es comenzar con el nombre de las variables que 
aparecen en las órdenes INPUT y GET. Estas suelen ir especificadas antes 
de la orden o sino en alguna orden PRINT. 

También podemos ayudarnos para este menester con las órdenes de salida. 
Normalmente se suelen explicar en el programa el significado de las 
salidas. Si se realiza la edición en forma de tabla, deberemos leer la 
cabecera de la tabla. 
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Resulta mas difícil indicar el significado de las variables que se 
utilizan en el programa como memorias intermedias. Poreso se debería 
inicialmente apuntar solo su nombre y mas tarde ya se especificara su 
significado al examinar con detenimiento la orden correspondiente. 
Al realizar la lista de variables se debe pensar que una variable puede 
tener distintos significados dentro de un mismo programa. Muchos 
programadores reutilizan el nombre de una variable si no se necesita su 
antiguo significado. Normalmente se acostumbra a emplear en nuevos bucles 
FOR..NEXT las mismas variables de control que se utilizaron en otros 
bucles si estos ya estan cerrados. 

La lista de variables del programa de la figura 15.1 será la siguiente: 


Variables explicadas en el programa: 


B Ancho de la calle 

W Constante de tiempo para el bucle de espera 
LR Posición del margen izquierdo de la calle 
RR Posición del margen derecho de la calle 

P Posición del coche 

P Puntos conseguidos 


Otras variables utilizadas en el programa 


A$ Entrada de teclado no utilizada en adelante 

T$ Tope de entrada para comandos de control 

I Variable de control para bucles 

X Contador de "caídas" 

D$ Carácter de impresión para el margen de la calle 

TI Argumento de la función RND. (Para entender esta variable, hay que 
saber que la computadora Commodore inserta en esta variable valores 
alternativos de un indicador de tiempo.) 


156 Cómo pueden analizarse los programas 


15.3 Comprobación de cada uno de 
los módulos del programa 


Cuando ya se tiene el programa estructurado y se conocen las órdenes de 
la computadora original, se comienza a analizar el programa paso por 
paso. En esta parte del análisis nos tropezaremos con problemas, 
sobre todo si ha programado el autor con "elegancia" o por el contrario 
muy desordenado. No es necesario pararse en cada línea, pero hay partes 
del programa en las que resulta muy difícil encontrar su sentido real. 
Sucede esto especialmente con los bucles en que se varía el índice de las 
variables campo. Cuando se encuentre con uno de estos casos, será 
conveniente llamar a la ayuda de la computadora para realizar el 
análisis conjuntamente. El modo de proceder lo aclaramos en un ejemplo. 
Existen una serie de programas de clasificación que contienen muchos 
trucos. Todos trabajan con bucles. Los números o palabras a clasificar 
deben hallarse en un campo unidimensional, y salen clasificados 
nuevamente en un campo. Si se encontrara con el siguiente programa, 
tendría muchos problemas para descubrir como funciona. 


40 DIM X(N),Z(N), Y (N) 

10FORL=1TON 

120 V=-10000 

130 FORK = 1TON 

140 IF Z(K)=0 AND X(K) > V THEN V=X(K):O=K 
150 NEXT K 

160 Z(0)=1 

170 Y(L)=V 

180 NEXT L 


Para probar este tipo de programas, se deberían primero asignar valores al 
campo a clasificar, en este caso X(x). Esto se puede hacer en un bucle 
con la función RND. Resulta útil para esta comprobación cargar en el 
campo original determinados valores, que son fáciles de controlar. 
También será mas provechoso comenzar la prueba concampos muy pequeños 
para que sea corta la ejecución del programa. Se deben añadir dos órdenes de 
programa. 
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El campo clasificado tiene aquí el nombre Y(x). O sea, que todavía debemos 
escribir unas órdenes para que la computadora nos propocione el campo 
clasificado. 


30N =3 
50 FORK=1TON:X(K): NEXT 


Ahora ya podemos probar el programa. Después de la ejecución podemos ver 
que los números del campo original que se hallaban en el orden 1,2,3, han 
sido clasificados comenzando por el mas grande y sucediendo de forma 
descendente. 

Con ello aun no nos podemos hacer una idea de como trabaja el programa. En 
el programa hay dos bucles anidados. Podemos tratar de insertar una 
orden de PRINT adicional en el bucle. 


141 PRINT L;K;V;O,X(K);Z(K); Y(K);141 


Es aconsejable escribir las órdenes adicionales para la prueba en nuevas 
líneas de programa que terminen por ejemplo en 1. Deesta manera resultara 
muy fácil reconocerlas una vez efectuada la prueba, para poder borrarlas. 
La línea de programa se edita al final de la línea de impresión 
para reconocerla. A continuación tenemos la ejecución del programa. 


141 
141 
141 
141 
141 
141 
141 
141 
141 


WN YN YN 
A O 
=> n= 2d NN gun mn 
0 Y 00 cv00ss)0Nn 
nn +». 0”-00000O 
O -Y"0O0O0OOo0ooOo 


O 0 0W Y UY NN NN » nn 
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En ocasiones es suficiente para reconocer la ejecución del programa, 
insertar una única orden de prueba al final del bucle interior. En este 
caso no lo tenemos tan fácil, pues también se modifica la variable en el 
bucle exterior. Por eso deberemos insertar otra orden de prueba al final 
de este bucle. 

Aquí se debe tener cuidado al dimensionar la variable campo. Después de una 
ejecución del bucle, la variable de control ha precalculado el valor, que 
es una unidad superior que en la orden FOR. Si en esta orden se han 
dimensionado los campos hasta el máximo valor, puede que se indique 
un error de OUT-OF-DIMENSION. Todo esto si se ha utilizado una variable 
de control como índice. Por eso, solamente las variables que se hallan 
en el programa se presentan con la orden adicional en la imagen. 

171 PRINT,,Z(0),Y(L);,171 
Ahora podemos obtener una nueva expresión: 


Ll 1.6 1 6 0 0 141 
A 7 0.0 141 
130.3 g8 0 0 141 

1-3 174 
Z 10,1 6 0 8 141 
0 A 70.0 141 
ra A g8 1 0 141 

1-1 
O E 6 0 8 141 
E E + f. 4 F. 141 
+ 3-61 8 1 0 141 

1 6 171 
8 
7 
6 


Ahora sí que se reconoce el funcionamiento del programa. Cada bucle se 
repite tantas veces como números se deben sortear. Si el valor del 
elemento es mayor que el valor de V, que estaba inicialmente en -10000, 
se transmite aquel a V. O sea que tenemos en V el mayor valor 
encontrado en el campo de elementos. Al finalizar el bucle interior, se 
coloca como indicador un 1 en el elemento del campo Z(x) y se escribe 
el máximo valor encontrado en el primer elemento del campo de resultados 
Y (x). 
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En el siguiente bucle ya no se tiene en cuenta el elemento del campo 
original, en el cual, el elemento indicativo ya no es 0. De esta manera se 
van colocando paso por paso en el campo de resultados el mayor valor que 
reste. 

No se puede decir que este programa sea muy efectivo. No obstante, el 
objetivo del ejemplo era mostrar como se investiga estos tipos de 
programas. 


15.4 Ejemplos de análisis de programas 
Programa INSTRUCTOR DE CONDUCIR 


El título y las aclaraciones explican suficientemente el programa 
de la figura 15.1. Pero para entender su funcionamiento,es preciso relizar 
un análisis. Resulta fácil de comprobar que el programa ha sido escrito en 
una computadora Commodore. Tiene los típicos comandos del cursor. La 
orden GET dentro de un bucle también es característica de esta 
computadora. 

El organigrama de este programa esta reflejado en la figura 15.2. Es de 
destacar que el autor ha empleado subprogramas para demostrar la técnica 
de los subprogramas. No hubiera sido necesario en este caso. 
En principio podemos reconocer los siguientes módulos del programa: 


- Título y aclaraciones 

- Asignación de constantes a variables (inicialización) 

- Entrada y valoración de los comandos de control 

- Creación de números aleatorios para el trayecto de la calle 
- Representación de la calle (escrita como subprograma) 

- Valoración y vuelta al principio 


Comose puede ver,cada módulocomienza con REM. Estas líneas REM son los 
objetivos de los saltos para acceder a los módulos. Para poder asumir este 
programa en la propia computadora, será necesario examinar todas las 
órdenes GOTO y GOSUB. 
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Cuando proceda, será necesario escribir nuevos objetivos de salto. También 
nos tenemos que fijar, que al acabar la parte del programa donde se 
representa la calle, se retrocede a la entrada de comandos de control. Se 
podria iniciar este módulo de forma normal y terminar con GOTO 310. 


No es necesario preocuparse en intentar escribir el programa de otra forma. 
Cada programador tiene su propio estilo a la hora de confeccionar un 
programa, y lo único importante es saber entenderlo. 

Para examinar las distintas órdenes se deberia tener a mano la lista de 
las variables (fig. 15.3). 


Ya los primeros problemas nos los podemos encontrar en la línea 100, si 
no conocemos la representación de los comandos de control del Commodore. 
Este primer comando sirve para borrar la pantalla y situar el cursor en 
la posición inicial. Muchos programas comienzan con este tipo de órdenes. 
La siguiente orden a examinar se halla en la línea 155. La variable A$ no 
vuelve a aparecer en la ejecución del programa. Solamente se usa para 
admitir una entrada por el teclado, para liberar el programa del bucle de 
espera. 


Las asignaciones desde la línea 210 a la 260 estan muy claras. Es 
representativo de un programa estilizado, asignar al comienzo de un 
programa constantes a las variables. De este modo se pueden utilizar en el 
programa sucesivas veces y son fáciles de modificar. 

También se utiliza la orden GET para introducir comandos de control. El 
bucle de entrada contiene programado en la línea 320 un retardo de tiempo 
para que las entradas solo sean trabajadas en un determinado transcurso de 
tiempo. 


En la línea 325 se comprueba si se ha introducido algun valor distinto a 1 o 
2, que son los permitidos. Para esta orden se ha utilizado el operador de 
negación NOT. En muchas computadoras resulta difícil ligar con AND o 
OR dos o mas órdenes que determinan una desigualdad. 
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Como que las variables LR,RR,y P contienen posiciones de una línea, si 
coincide el valor de P con LR o con RR, significa que el coche ha alcanzado 
el margen de la calle. Esta es la única posibilidad para finalizar un 
juego. En este caso se salta al último módulo que indica los errores 
de conducción y la puntuación alcanzada. 

Si permanece el coche en la calzada, o sea, que P sea menor que RR o mayor 
que LR, se presenta en la pantalla la posición del coche y un trozo de la 
calle. No se sabe como va a proseguir la calle. 

La calle puede seguir en tres direcciones: a la derecha, recta o a la 
izquierda. La función RND de la orden en la línea 330 se ocupa de generar 
los números -1, 0 61. Según el número se determina el carácter de 
impresión de la calle y luego se salta a la línea 600 en el 
subprograma. En la misma línea, después de la orden GOSUB, se encuentra 
la orden para saltar al módulo de entrada. Este se acciona al retornar del 
subprograma. 

En el subprograma se lleva a cabo la corrección de LR y RR, a la vez que se 
comprueba si ya se ha alcanzado el margen de la pantalla. La orden PRINT 
de la línea 560 nos da el límite de la calle y el signo de la suma para 
simbolizar el coche. Las variables de posición LR,RR y P vienen en el 
argumento de la función TAB. 

Este ejemplo relativamente sencillo nos enseña lo importante que son las 
consideraciones previas a la hora de entender un programa ajeno. Incluso 
en los programas bien estructurados nos encontramos con instrucciones que 
dificultan el entendimiento global del programa. 


Programa BUSCAR PASAJES DE TEXTOS 


El programa de la figura 15.4 casi no contiene comentarios. En un primer 
repaso del programa, podemos ver que las líneas DATA a partir de 500 
contienen numerosas abreviaciones, y en las líneas DATA a partir de 600 nos 
encontramos con referencias de pasajes de textos en revistas. Se trata 
pues de un programa con el que se busca en el índice de pasajes de 
textos las abreviaciones dadas. 
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1 REM BUSCAR PASAJES DE TEXTOS 
3 DEFINT A,B,C,N,K,Z 
10 CLEAR 1000 
20 INPUT "SE DEBE IMPRIMIR EL MENU DE BUSQUEDA DE PALABRAS"; x$ 
30 IF X$="si" THEN 1000 
100 FOR 2=1 TO 56 
110 READ A$ 
110 READ A$ 
120 PRINT Z;A5, 
130 NEXT_Z 
140 INPUT “INTRODUCIR : <Nro.> PARA BUSQUEDA, <99> PARA NUEVA 
ENTRADA" ;N 
150 IF N=99 THEN LIST 600-999 
160 INPUT "SE DEBE IMPRIMIR” ;X$ 
170 1F X$="si" THEN 300 
180 FOR 2=1 TO 399 
190 READ As 
200 B$=LEFTS$(A$,2) : C5=MIDS(A5, 4,2) 
210 B=VAL(B5) : C=VAL(C5) 
220 IF N=B OR N=C THEN PRINT Ag: L=L+1 
225 IF L=13 THEN L=0: INPUT*CONTINUE <NL> PULSANDO"; Y$ 
230 NEXT_Z 
FOR Z=1 TO 399 
310 READ A$ 
320 B5=LEFTS(A$,2) : C5=MIDS(AS$, 4,2) 
330 B=VAL(B$) : C=VAL(C5$) 
340 IF N=B OR N=C THEN LPRINT As 
370 NEXT Z 
500 DATA MP.Gral.,8080/2 80,MP Apl.Gral, Sensores 
502 DATA H1-Memoria,65XX,MC Apl.Gral., Interfase 
504 DATA Avisos,68XX ,Juegos,Pantal la 
506 DATA Componente,Unichip MP ,Matemat ¡cas Memoria 
508 DATA MP Apr.Gr.,8-bit MP,Datos-Texto, Impresoras 
510 DATA MP Desarrollo,16-bit MP, Econom¡a,Otr.Perif. 
512 DATA P-Computer,Basic,Controles,Ord.Voc 
514 DATA CBM/Apple,Pascal,Graficos Sonido 
516 DATA TRS/Genie,Otr.Leng. Hogar ,x 
518 DATA Uni-Chip,Prog.Apl.,Constr.,x 
520 DATA 8-bit MP,Prog.Ayud. ,Trafico,x 
522 DATA 16-bit MP ,x,x,x 
524 DATA x,x,Cons.+Ayud. Circuit. 
526 DATA Gr,Sist.,Vision,Test,Basicos 
600 DATAO01.54 CH 11/81 p16 Historia MP 
601 DATA25.55 CH 11/81 p38 alphatronic 
602 DATA16.55 CH 11/81 p42 Philips Data-Recorder 
603 DATA26.29 CH 11/81 p57 Sistema de ficheros 
604 DATA16.55 CH 11/81 p114 ATARI 
605 DATA26.56 CH 11/81 p122 Comparación Estructuras 
606 DATA29.42 CH 11/81 p146 Ampliaciones BASIC 
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607 DATA24.55 MC 3/81 p26 Plotter ADCOMP 
608 DATA34.54 MC 3/81 p31 Focal. 4/81p67 

609 DATA20.55 MC 3/81 p36 MX-80 y 737-2 

610 DATAOS.56 MC 3/81 p40 Memorias dinamicas 
1000 LPRINT" PALABRAS BUSQUEDA" :LPRINT 
1010 FOR Z=1 TO 14 

1020 FOR K=1 TO 4 

1030 X = X+1 

1040 READ As 

1060 LPRINT Xx; A5,: NEXT K 

1070 LPRINT : NEXT Z 


Fig. 15.4 programa PASAJES DE TEXTOS 


Lo peculiar de este programa es que los datos son almacenados en líneas 
DATA, con lo que también se pueden utilizar para cassettes. 
La orden de la línea 3, que define algunas variables como integer, y la 
utilización de la orden LPRINT nos permite deducir que este programa ha sido 
concebido en un Genie o en un TRS 80. También es típico en estas 
computadoras usar la orden CLEAR 1000 para almacenar 1000 posiciones de 
memoria para los caracteres en las variables string. 

El programa no presenta a simple vista ninguna estructuración. Sin embargo 
no resulta difícil reconocer como funciona el programa. Los módulos están 
caracterizados en pocas líneas de la lista del programa. También se 
encuentran marcados los bucles y las líneas de entrada y salida. Todo esto 
facilita la formación del organigrama o la lista de ejecución de 
líneas (fig. 15.5). 

Los módulos del programa son los siguientes: 


- Título e inicialización 

- Consulta, si se desea que se imprima el menú de búsqueda de palabras 
- Presentación y familiarización del menú 

- Consulta sobre el número a buscar con bifurcación para el listado e 
impresión del resultado buscado 
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Fig. 15.5 Organigrama y lista de ejecuciones para 
el programa PASAJE DE LITERATURA 
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- Bucle de búsqueda para edición 
- Bucle de búsqueda para impresión 
- Bucle para imprimir el menú de búsqueda de palabra 


Repasando “a conciencia el plan de ejecución, nos encontramos con algunas 
particularidades. No es habitual que un programa contenga la función 
LIST. Esta instrucción esta pensada para que pueda ver el usuario el final 
de las líneas DATA. Asi puede realizar una nueva entrada, ya que 
durante la ejecución del programa esto no es posible. 

También deberíamos fijarnos en que ninguno de los dos bucles termina con la 
orden END. Se ha dejado a conciencia en los bucles de lectura un gran 
margen para el valor superior del contador del bucle. Como no se 
realizaran tantas entradas de DATA, se interrumpe el programa después de 
la lectura, ya que no se encuentran mas datos para proseguir. Esto se 
podría haber evitado programando un contador de las entradas  - 
resulta difícil- o con una rutina de gestión de errores. No obstante, 
esta interrupción después de la búsqueda no resulta incómoda, y esa debe 
ser la razón de hacerlo de este modo. 

Ahora se debe formar la lista de variables. Primero se busca el significado 
de las variables definidas por la orden DEFINT como integer. 


A No utilizada 

B Primer número de búsqueda como número 
C Segundo número de búsqueda como número 
N Número de búsqueda introducido 

K Variable control en el bucle 

Z Variable control en el bucle 


Pero también nos encontramos con una serie de variables, cuyo significado 
hemos de buscar. 


A$ Tope para una cadena literal asumida 

X$ Tope para entradas 

B$ Primer número de búsqueda como cadena literal 
C$ Segundo número de búsqueda como cadena literal 
L Contador de líneas para la presentación en pantalla 
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Y$ Buffer de entrada 
X Contador del número de búsqueda en la impresión 


En ocasiones resulta imposible enumerar todas las variables antes de 
analizar las órdenes. En estos casos será conveniente apuntarse los 
nombres de las variables y mas tarde ya se buscará su significado. 
Para formar una lista de variables se cuenta con una serie de programas de 
ayuda, llamados también utilities, con los que se puede estudiar que 
variables aparecen en el programa y la línea determinada donde son 
accionadas. En la figura 15.6 presentamos el programa de ayuda REF. Esta 
contenido en algunos sistemas de operación de discos del Genie y el TRS 80. 
Ahora se trata de analizar cada orden por separado. Las órdenes para 
la iniciacialización son especificas de cada computadora por lo que se 
pueden omitir en otras computadoras o sustituirlas. 

La consulta de línea la 30 es muy sencilla. Solamente si se introduce la 
palabra 'si' en minúsculas, se salta a la línea 1000 para imprimir el 
menú. Esto significa que para cualquier otra entrada sólo se produce la 
edición del menú. 

El bucle de lectura y salida se repite 56 veces, ya que en las líneas 
DATA a partir de la línea 500 se encuentran 56 abreviaciones 
(palabras de búsqueda). Delante de cada palabra de búsqueda va el valor del 
contador del bucle. Este número es a su vez el número de búsqueda con el que 
se realizara posteriormente la búsqueda. 

Para interpretar este bucle se ha tenido en cuenta el formato de salida de 
la computadora. La presentación se realiza en 4 columnas, de manera que 
en la pantalla aparecen 14 líneas. En las computadoras empleadas se 
pueden presentar un maximo de 16 líneas. Por lo tanto restan dos líneas 
libres, que son ocupadas por la orden INPUT de las líneas 140 y 160. En 
este ejemplo no son precisas órdenes para borrar la pantalla o de 
desplazamiento del cursor, debido a que el programa llena por completo 
la pantalla. 

Hay que estar al tanto de que las cadenas literales de las líneas DATA no 
sean mas largas que el número de caracteres permitido entre dos 
columnas. Por eso se utilizan abreviaciones en las palabras de búsqueda. 
La siguiente operación la realiza el módulo para la búsqueda y edición del 
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Lista de constantes y variables en el programa 
BUSCAR PASAJE DE TEXTO 


o 225 

1 100 180 220 300 1010 1020 1030 
2 200/2 320/2 

4 200 320 1020 

— SS» 


) ps 
14 1010 
56 100 
99 150 
300 170 
399 180 300 
600 150 
999 150 


1000 10 30 
A 3 110/% 120/% 190/% 200/$2 220/% 310/% 320/$2 340/5% 
1040/% 1060/% 
B 3 200/%$ 210 210/% 220 320/% 330 330/% 340 
E 3 200/% 210 210/% 220 320/% 330 330/% 340 
K 3 1020 1060 
L 220/2 225/2 
N 3 140 150 220/2 340/2 
X 20/% 30/% 1650/% 170/$ 1030/2 1060 
Y 225/% 
Z 3 100 120 130 180 230 300 370 1010 1070 


Fig. 15.6 Lista de constantes y variables para el programa 
PASAJES DETEXTO, formada con el programa de ayuda REF contenidoen 
el NEWDOS 80 y el G-DOS. 


pasaje de texto encontrado. Tal como está escrito el programa, se pueden 
almacenar hasta 399 anotaciones en las líneas DATA 600 a 999. En cada 
línea sólo se puede codificar una cadena de caracteres que lleva delante 
dos números de búsqueda separados por un punto. La información que 
sigue no es de importancia para el funcionamiento del programa. No 
debe colocarse una coma, pues se interpretaría como un signo de 
separación. 

Al leer las órdenes de las líneas 200 a 220 podemos entender la necesidad 
de poner al principio dos números de búsqueda. En estas órdenes se separan 
los caracteres primero y segundo, y el cuarto y quinto de la cadena y se 
transforman en números. Ahora se pueden comparar con los números de 
búsqueda introducidos. Al coincidir alguno de ellos se realiza la edición 
del subsiguiente texto. 
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Notemos que en el bucle también nos encontramos con la variable L. 
Cada vez que se edita una línea se aumenta en una unidad, y al alcanzar 
el valor 13 se vuelve a poner a 0. Entonces pasa la computadora a un 
bucle de espera hasta que se pulse alguna tecla. De esta manera se evita 
el scrolling en la pantalla y se puede leer con tranquilidad su contenido. 
La parte de programa para la impresión que comienza en la línea 300 está 
dispuesta de igual forma. Falta el bucle contador y la orden de espera. 
Pero estos no son necesarios en la impresión. 

Con el módulo de programa a partir de la línea 1000 se imprime el menú de 
búsqueda. En él encontramos dos bucles anidados para activar la impresión de 
14 líneas en 4 columnas. A diferencia del bucle de edición, aquí se utilizan 
dos contadores separados para las líneas y las columnas respectivamente. 
Esto es así, porque la impresora puede imprimir más caracteres por línea que 
la pantalla. Debido a que se ejecutan dos bucles, debe añadirse un contador 
particular para el número de búsqueda. 


Con esta presentación tan detallada de un análisis de programa se ve 
como deben considerarse las particularidades de un programa ajeno para 
entenderlo. Otras veces es suficiente aclararse con el objetivo de las 
órdenes sin preocuparse sobre la forma como se ha conseguido. 


Programa GLOBOS 


En este programa nos encontramos con un juego de movimientos. Se deben 
disparar a unos globos que aparecen al azar. 

También este programa ha sido creado en una computadora Commodore. Se . 
puede reconocer por los comandos de control visualizados en video 
inverso. El programa utiliza en este caso órdenes POKE, por lo que hay que 
saber que con ello se activa la memoria de pantalla. 

El programa está muy bien estructurado. La lista está compuesta por 
el programa principal conteniendo las llamadas a los subprogramas. Con 
ello se puede ver que la ejecución es secuencial, pues los subprograma 
son activados uno tras otro. 
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1000 : PRINT * 
1010 : PRINT * 
1011 : PRINT* o o--- 
1012 : PRINT * 
1020 REM JUEGO GRAFICO DE REACCION Y HABILIDAD 


2000 REM kikkk PROGRAMA PRINCIPAL iidrdtitataidadididad1d1ii11117 
2300 : GOSUB 3000 : REM INSTRUCCION 
2400 : GOSUB 4000 : REM VALORES INICIALES 


2410 : 
2500 : GOSUB 5000 : REM CAMPO DE JUEGO 


E 
o 


2600 : GOSUB 6000 : REM JUEGO 


2700 : GOSUB 7000 : REM VALORACION 
2710 : 
2800 : END 


2900 REM **** FINAL PROGRAMA PRINCIPAL tota ceo te 


3000 REM +++ SUBPROGRAMA INSTRUCCION ++++r+rr+rirrrrrrrirrrrr.. 


3010 : PRINT"EL JUEGO CONSISTE EN IR DISPARANDO A 
3020 : PRINT"LOS GLOBOS QUE VAN CALLENDO DEL CIELO. 
: PRINT"TIENE 25 INTENTOS PARA 10 GLOBOS. 

: PRINT"EL CANON SE MUEVE ININTERRUMP IDAMENTE 
3050 : PRINT"POR EL SUELO. 

3060 : PRINT"USTED DISPARA CON EL ESPACIADOR. 

3070 : PRINT"PULSAR LA TECLA Y ADELANTE! 


gs 
88 


3200 : GET Q$ : IF Q5=" " THEN 3200 


3300 : PRINT" * 

3390 : 

3900 : RETURN 

3950 : 

4000 REM +++ SUBPROGRAMA VALORES INICIALES +++rrrrrrrrrrrrrrr+r 


4010 : ZK= 193 : REM CANONES 
4020 : 78= 81 : REM GLOBOS 
: 2S= 93 : REM BALA 
4040 : ZRT= 102 : REM MARGEN 
: LE=33528 : REM ESQUINA IZQUIERDA 
: RE=33567 : REM ESQUINA DERECHA 
: BP=33548 : REM PUNTO BASE (CANON) 
4080 :BR= 1 : REM DIRECCION 
4090 : AB= 10 : REM NUMERO DE GLOBOS 
4110 : SZ= O : REM NUMERO DE DISPAROS 
4120 : VZ= 25 : REM NUMERO DE INTENTOS 
4130 : ZL= 32 : REM ESPACIOS VACIOS 


4900 : RETURN 
4995 : 
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5000 REM +++ SUBPROGRAMA CAMPO DE JUEGO ++++++rr+rrr+rrrrr... 
5001 : 

5010 : FOR 1 = 32768 TO 32807 

5020 : POKE 1,ZR 

5030 : POKE 760+1,ZR 

5040 : POKE 960+1,ZR 

5060 : NEXT 1 


: FOR I= 33568 TO 33688 STEP 40 
5110 : POKE 1,ZR 
5120 : POKE 39+1,ZR 


8 


5130 : NEXT 1 
5190 : 

5200 : DIM B(40) 
529 : 


5300 : FOR I=1 TO 10 

5310 : LET K=INT(40*RND(TI))+32807 
5320 : IF PEEK(K) <> 32 THEN 5310 
5330 : LET B(1)=k 

5340 : POKE K,Z8 


5350 : NEXT 1 

5390 : 

5400 : POKE BP,ZK 

5410 : 

5500 PRINT "SQQQ0QQ000009000090000Q]] INTENTOS DISPAROS GLOBOS" 
5510 : 

5900 : RETURN 

5999 


6000 REM +++ SUNBPROGRAMA JUEGO ++r+rr+rrrrrrrrrrrrrrrrrrrrrirrrr 


6100 , PRINT"SQQQQQQQQ000Q"TAB(4)VZ"  *; 
6105 : PRINT TAB(18)" "SZ TAB(31) AB " * 


6150 : GET A$s :IF Ag=" " THEN 6300 : REM DISPARO 
6200 : REM -- MOVIMIENTO HORIZONTAL DEL PUNTO BASE (CANON) 


6210 : IF NOT (LE < BP AND BP<RE) THEN LET BR=-BR 
6220 : POKE BP,ZR : LET BP=BP+BR : POKEÉ BP,ZK 


6230 : 

6290 : GOTO 6150: REM NUEVA PULSACION DE TECLA 

6295 : 

6300 : REM-- DISPARO Y CAIDA DEL GLOBO 

6310 : 

6330 : LET VZ=VZ-1 : LET S2=SZ+1: LET P=BP 

6340 : 

6350 : LET P=P-40 

6360 : IF PEEK(P) < 2ZB THEN 6410 :REM NO ACERTADO EL GLOBO 
6370 : LET AB=AB-1 : REM ACERTADO, UN GLOBO MENOS 
6380 : GOSUB 6700 :REM DETONAC ION 

6390 : GOSUB 6900 : REM BORRAR UNO DE VUELO BAJO 
6395 : GOTO 6460 :REM BORRAR El DISPARO 

6400 : 


6410 : IF PEEK(P) < ZR THEN 6430 :REM TODAVIA NO EN EL MARGEN 
6415 : POKE P+40,ZL : REM DISPARO EN EL MARGEN 
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7190 : 


7900 


: GOTO 6460 ¿REM A BORRAR 
: POKE P,ZS ¿REM BALA 

: GOTO 6350 :REM BALA AVANZA 

: FOR 1=BP-680 TO BP-40 STEP 40 

: POKE 1,21 :REM BORRAR DISPARO 

: NEXT 1 

: TF AB<=0 OR VZ<=0 OR VZ<AB THEN RETURN : REM FIN DE JUEGO 
: FOR 1=1 TO 10 

: LET K=INT(10*RND(TI))+1 


: IF B(K)=0 THEN 6590 
: LET B(K)=B(K)+40 
: IF PEEK(B(K))=ZR THEN LET VZ=0 : REM GLOBO ABAJO 


: POKE B(K)-40,2L 

: POKE B(K),28 

: NEXT 1 

: GOTO 6100 

: REM +++ SUBPROGRAMA DETONACIÓN +++rrerrrrrrrrrrrrererar++ 

: FOR 1=P-2 TO P+2 ; POKE 1,42 ; NEXT 1 

: FOR 1=P-80 TO P+80 STEP 40 

: IF PEEK(1)=ZR THEN 6760 

: POKE 1,42 

: NEXT 1 

: FOR 1=1 TO 14 

: NEXT 1 

: FOR 1=P-2 TO P+2 : POKE 1,32 ; NEXT 1 

: FOR 1=P-80 TO P+80 STEP 40 

: TF PEEK(1)=ZR THEN 6850 

: POKE 1,32 

: NEXT 1 

: RETURN 

: REM +++ SUBPROGRAMA BORRAR UN VOLADOR BAJO ++rrr+rresros 

: FOR 1=1 TO 14 

: IF B(1)=P THEN B(1)=0 

: NEXT 1 

: RETURN 

REM +++ SUBPROGRAMA VALORACION +++rrrrrrrrrrrrrr+rrrrrrr+. 

: 1F AB>0 THEN LET 25="PERDIDO!" : GOTO 7120 
LET Z5="GANADO!" 

: PRINT “USTED HA " 25 

: PRINT “DESEA VOLVER A JUGAR?" 

: GET Q$ :IF Q4="S" THEN RUN 

: TF Q5 <> "N“ THEN 7140 

: RETURN 


Fig. 15.7 Programa GLOBOS 
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Fig. 15.8 Organigrama del programa GLOBOS Subprograma J UEGO 
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No obstante encontramos una serie de decisiones y saltos en el módulo 
JUEGO. Solo para este módulo se dibuja el plano de ejecución del 
programa (fig. 15.8). 

Al asignar los valores en el programa se comentan la mayoría de variables. 
Hay algunas órdenes que solo las podremos entender si ya hemos trabajado 
alguna vez con un Commodore. Siguiendo las explicaciones del capítulo 10, 
tenemos los valores que han sido asignados a las variables LE,RE y BP, 
que son espacios de memoria correspondientes a la pantalla. Los valores 
de ZK,ZB,ZS y ZR son cifras de código correspondiente al código de 
pantalla. Su significado está explicado en la figura 10.3. 

El módulo INSTRUCCION contiene las aclaraciones del programa y se 
abandona al pulsar cualquier tecla. 

Con el módulo CAMPO DE JUEGO, que contiene dos bucles, se delimita el 
campo de juego en la pantalla. El primer bucle traza 3 líneas horizontales y 
el segundo 2 líneas verticales. 

Seguidamente se dimensiona la variable B(x) con 40 elementos. 10 elementos 
de campo son ocupados con el simbolo del globo. A continuación se situa el 
simbolo del cañon en el punto base y se editan los títulos para la 
valoración. 

Con el módulo JUEGO se presentan los dianas acertadas hasta el momento y 
se hace un requerimiento para una nueva entrada. Si se pulsa el espaciador 
(A$="", no confundir con A$=" "!) sigue el programa con DISPARO. 
Si se pulsa cualquier otra tecla o no se pulsa ninguna, se mueve el cañon 
elevando en una unidad la dirección de memoria del punto base. Pero antes 
se comprueba si ya se ha alcanzado el margen izquierdo del campo de juego. 
Si es así, se reduce la dirección de memoria en lugar de aumentarla. 
En la parte de programa DISPARO Y CAIDA DEL GLOBO se cambian los 
resultados, y se le asigna a la variable P, que indica la posición del 
proyectil, la dirección momentánea de memoria del punto base. A partir de 
la línea 6360 se evalúa si se alcanzo el globo. Según corresponda, es 
accionado el subprograma DETONACION o BORRAR. 

Si no se ha acertado, se averigua si la trayectoria del proyectil ha 
alcanzado el margen. 
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Si así sucede,se borra la trayectoria del proyectil, en caso contrario 
se prolonga hacia arriba. Con el salto de 6350 se desplaza la posición 
del proyectil una línea hacia arriba. Y se vuelve a consultar si se acerto 
esta vez. O sea, con las líneas desde la 6350 hasta la 6440 se va 
confeccionando la trayectoria del disparo, que se borra al alcanzar un 
globo o el margen. 

Ahora deberemos comprobar el bucle FOR...NEXT que comienza en la 
línea 6520. En el se elevan de forma aleatoria en 40 unidades la posición en 
la memoria de pantalla de los globos. Esto significa que tenemos los 
globos una línea mas abajo. Además no se debe olvidar que hay que borrar 
la posición anterior del globo. 

La orden RETURN del subprograma JUEGO esta en la línea 6500. 
Esta se activa si se han acertado todos los globos, si se han agotado los 
disparos o si quedan mas globos que disparos. Se salta al módulo 
VALORACION y finaliza el juego. 

Para poder ejecutar este programa en otra computadora, será necesario 
modificar bastantes órdenes y asignaciones. Según como, puede ser mas 
fácil volver a escribir de nuevo el programa para la propia computadora, 
tomando el antiguo como base y guía. 


Programa FILTRO DE EROSTENES 


Frecuentemente nos encontramos en revistas especializadas programas 
denominados "bancos-de-prueba" (bench-mark), con lo que se prueba la 
velocidad de operación de una computadora. Unos de estos programas se basa 
en el procedimiento de cálculo de los números primos tal como lo describiera 
Eróstenes en la antigua Grecia. En la figura 15.9 tenemos una 
publicación de este programa. 

Después de adaptar este programa al ordenador propio, se puede 
ejecutar y se obtendrá al cabo de un cierto tiempo los números primos 
entre el 1 y el 5000. Nadie comprobará el resultado, por lo que se 
supone que es correcto este programa. 

Aquí hemoscambiadoel programa para que calcule únicamente los números 
primos comprendidos entre los 10 primeros. 
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REM ** NUMEROS PRIMOS ** 
REM FILTRO DE ERATOSTENES 
SIZE=5000 : DIM FLAGS(5001) 
COUNT=0 
FOR I = 1 TO SIZE 
FLAGS(1)=1 
NEXT 1 
FOR 1 = 0 TO SIZE 
IF FLAGS(I)=0 THEN 170 
PRIME=1+1+3 

K=1+PRIME 

IF K > SIZE THEN 160 
FLAGS(K)=0 

K=K+PRIME 

GOTO 120 

COUNT=COUNT+1 

NEXT 1 


Fig. 15.9 Programa NUMEROS PRIMOS 


Además se acortó el nombre de la variable y se agregó un bucle de salida 
que escribe los números primos. 
10 S=10 
20 DIM F(S) 
40 C=0 
50 FOR I=1 TO S 
60 F(1) = 1 
70 NEXT 1 
80 FOR I=0 TO S 
90 IF F(I)=0 THEN 170 
100 P=I+1+3 
110 K=I+P 
120 IF K>S THEN 160 
130 F(K)=0 
140 K=K+P 
150 GOTO 120 
160 C=C+1 
170 NEXT I 
200 FOR I = 1 TO S 
210 PRINT I5F(I) 
230 NEXT 
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El resultado es sorprendente: 
RUN 


OOO YO00n YN 
5 O .+.O mn np 


En el programa se utiliza el 1 para caracterizar un número primo y el O para 
los números divisibles. Como se ve, el 4 y el 8 aparecen como números 
primos. 
A través de un análisis de programa deberemos determinar que es lo que no 
funciona en el programa. Para ello es conveniente conocer el 
procedimiento que aplicó Eróstenes. El escribió todos los números 
seguidos, y comenzó eliminando todos los números divisibles por dos. 
Luego eliminó todos los números que fuesen divisibles por el 
siguiente número de la fila, y así sucesivamente. Al final sólo 
quedan en el filtro los números no divisibles. 
Para poder visualizar la ejecución del programa, insertamos dos órdenes 
PRINT, tal como explica la figura 15.3. Además cogemos solo los 
números del 1 al6 e introducimos una orden STOP para poder ver la 
edición con tranquilidad. 

10 S=6 

81 PRINT I;P;K,81 

121 PRINT I;P;K,121 

190 STOP 


Realizando la ejecución de prueba podemos ver que deben haber una o 
varias órdenes incorrectas. 
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1 5 6 121 
2 5 11 81 

3 7 9 81 

4 9 12 81 

5 11 15 81 

6 13 18 81 

Break in 190 

READY 


> 


Según el programa, los números primos deben registrarse en la variable P. 
Algo no funciona, ya que el primer número que se elimina es el 5 y luego 
sus múltiplos. Observemos la orden de la línea 100 donde esta definido P. 
Aparentemente esta incorrecta, pues P debería tener en la primera ejecución 
el valor 2. Pero parece ser que la orden de la línea 110 tampoco es 
correcta. Esta calcula en el bucle los números divisibles. Por eso se 
deben escribir de nuevo estas órdenes. 


100 P + 1-+.2 
110K=P+P 
En la siguiente ejecución de prueba sigue habiendo algo mal: 


CONT 


DH nh yn 
O >» ms ps ps 


RUN 

0 0 0 81 
1 0 0 81 
1 3 6 121 
2 3 9 81 
3 á 8 81 
4 3 10 81 
5 6 12 81 
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6 7 14 81 
Break in 190 
READY 


> 


Del análisis podemos ver que el número 2 no es reconocido como número 
primo. Esto solo puede ser asi, porque la lectura en el bucle comienza con 
el elemento 1 del campo de números, y el bucle de la búsqueda de 
números comienza con el 0. Se debe cambiar la orden de la línea 50: 


50 FORI=0 TOS 


Ahora sí que son correctos los números divisibles: 


RUN 

0 0 0 81 

0 2 4 121 
0 2 6 121 
1 2 8 8l 

1 3 6 121 
2 3 9 81 

3 4 8 8l 

4 5 10 81 

5 5 10 81 

6 7 14 81 

Break in 190 

READY 


z 
— 


A A e 
1 
< 
O == O 


Este típico ejemplo nos muestra las variaciones que pueden surgir al 
copiar e imprimir un mismo programa sucesivas veces. Se da por descontado 
que el programador ha confeccionado un programa correcto. 


Lo que seguramente nadie podrá demostrar es como llegaron esos tres 
s al programa. Lo especial de este caso es que sólo se da uno cuenta 
de estos errores al analizar el programa. En la figura 15.10 tenemos el 
programa terminado y el resultado de su ejecución para los números del 1 al 


errore 


200. 
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5 REM PRUEBA DE NUMEROS PRIMOS 


10 
20 
40 


140 
150 
160 
170 
200 
220 
230 
240 


RUN 
1 
29 
71 
113 


FOR 1=0 TO S 
F(I) = 1 
NEXT 1 
FOR 1=0 TO S 

IF F(1)=0 THEN 170 
P=1+2 

K=P+P 

IF K > S THEN 160 
F(K)=0 
K=K+P 
GOTO 120 
C=C+1 
NEXT 1 
FOR l = 
IF F(1)= 
IF7Z=1 
NEXT 


1 TOS 
1 THEN PRINT 1;: Z=Z+1 
O THEN PRINT : Z=0 


2 3 5 7 11 13 17 19 23 
31 37 41 43 47 53 59  6l 6 
713 79 83 89 97 101 103 107 109 
121 127 131 137 139 149 151 157 163 
173 179 181 187 191 193 197 199 


Fig. 15.10 Programa NUMEROS PRIMOS y su ejecución 
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En los análisis de estos programas puede resultar más útil escribir 
lasórdenes PRINT adicionales en un subprograma. Deesta manera podremos 
llamarlas cuando sean necesarias. En un análisis completo se debe 
imprimir cada vez que se modifique alguna variable. Esto puede resultar 
muy complicado, y quizás será mas prudente insertar órdenes de PRINT 
donde mas información nos pueda aportar. 


16 


Como convertir programas 


En libros y revistas especializadas se publican constantemente programas 
en BASIC. Es lógico que aquellos que tengan un ordenador, deseen 
utilizar programas ajenos, ya sea para ahorrarse trabajo, ya sea para 
aprender de ellos. 

Pero en muy contadas ocasiones se podrá escribir en la propia computadora 
el programa orden por orden. Quiza sea posible con programas pequeños 
o rutinas de ayuda, pero no con programas bien desarrollados. Se 
encontraran órdenes que no conozca la computadora sobre la que se 
desea ejecutar el programa. Esto hace necesario la conversión de 
determinadas órdenes. a 

El que no tenga los conocimientos suficientes para confeccionar por sí mismo 
un programa, encontrará muchas dificultades para ejecutar en su 
computadora un programa ajeno. 


16.1 Dos alternativas para 
transformar un programa 


Un camino es atenerse a los conceptos del programa original y modificar 
únicamente las órdenes que no se pueden ejecutar enel propio programa. 
La otra forma será transcribiendo el programa de manera que se pueda 
ejecutar sin ningún problema y de la forma mas económica. 

Aplicando el primer proceso, hay que confiar que el programador original no 
haya cometido errores en el programa. No es necesario entender el programa 
en todas sus particularidades. Por otro lado ha sucedido, que por cometer el 
mínimo error al teclear las órdenes, este ya no funcione. 


Para el segundo procedimiento es necesario un análisis del programa, tal 
como se ha descrito en el capítulo anterior. 
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También se puedencombinar los dos procedimientos. Las partes del programa 
que no presenten ninguna complicación se dejan tal como estan, y las partes 
que sean difíciles de entender se transcriben de nuevo. Existe el 
peligro de pasar algo por alto, y consecuentemente, el programa no 
funcionará. 

Resulta a veces problemático el tratamiento de los comentarios y 
explicaciones que incluye el programa. Para ahorrarse trabajo de 
tecleo, se pueden suprimir éstas aclaraciones. Se podrá hacer si los 
comentarios están al final de las líneas y separados por un signo de dos 
puntos. También se pueden dejar líneas de comentarios enteras y líneas 
insertadas de espacios vacios. Antes se deberá averiguar si no se utilizan 
la líneas de comentarios como objetivos de alguna orden de salto. En 
estos casos se deberá conservar la línea con REM como mínimo. 

Será mejor que se conserven las órdenes que contienen aclaraciones 
sobre el programa, pues un programa sin aclaraciones es difícil 
de entender. Lo que sí se puede hacer es abreviar los textos aclarativos a 
la hora de realizar una prueba. Si el programa funciona, ya no 
resultara incómodo reconstruirlas de nuevo. 

No se aconseja cambiar el nombre de las variables si puede trabajar la 
computadora utilizada con los mismos nombres en el programa. Incluso si se 
está acostumbrado a emplear en programas propios nombres de variables 
diferentes, es aconsejable conservar los originales. Una modificación 
de nombres suele llevar a errores. 

Si se desea adoptar un programa con pocas modificaciones, también es 
interesante conservar los mismos números de línea. Como se puede ver, 
si se ha necesitado de una completa transformación, podrá utilizarse 
el esquema de numeración propio. 

A continuación comentamos los diferentes problemas con que se puede 
encontrar uno al convertir un programa. De los ejemplo se puede aprender 
que noes preciso aferrarse a un único camino, sino que al igual que el 
programador, el que convierte, debe tener en cuenta todos los posibles 
caminos para la resolución de un problema. 
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16.2 
Conversión de programas sin revisión 


El programa de juego DIECISIETE Y CUATRO de la figura 16.1 ha sido 
escrito con toda seguridad sobre una computadora Commodore. Algunas 
órdenes nos muestran los caracteres típicos de control del cursor, las 
órdenes GET estan escritas de forma particular, tal como procede en el 
Commodore. Supongamos que deseamos aplicar este programa sobre el 
Genie/TRS 80 o en un Apple. 

Repasandoelprograma, veremos quesolo aparecen unas cuantas líneas que no 
se pueden ejecutar en otras computadoras. Estas líneas que deberemos 
transcribir son: 


- Las líneas con los comandos para el cursor (1000, 5010, 5130, 
5220, 5510, 5620, 5800 y 5850), 

- Líneas con la orden GET (3030, 5335 y 7220) 

- La función RND de la línea 6100. 


De la tabla de la figura 10.1 podemos extraer el significado de los 
símbolos de los caracteres de control. El corazón en video inverso 
de la línea 1000 es el símbolo de la orden para borrar la pantalla. El 
Genie tiene la orden CLS y el Apple HOME. 

Con la R negativa se conmuta a presentación en video inverso de 
pantalla. El genie no tiene esta posibilidad pero también se puede 
renunciar a ella. En el Apple se sustituye por la orden INVERSE. Con 
la Q negativa se desplaza el cursor un línea hacia abajo. Si se encuentra 
en la orden PRINT sin un signo de punto y coma al final, se puede 
sustituir por la orden PRINT en vacío. También pueden aparecer en el 
Commodore comandos de control del cursor con un círculo o un guión en 
video inverso. Estas órdenes resultan mas difíciles de convertir. En el 
Genie seutiliza laorden PRINTO y enel Apple HTAB y VTABpara desplazar 
el cursor en sentido vertical o lateral. Otra forma que permiten todas las 
computadoras es utilizando la función CHRY$ y el código de control en ASCII. 
Las órdenes GET son muy fáciles de convertir. En lugar de GET A$ se escribe 
enel Genie A$=INKEY?$, el resto de la línea permanece inalterado. En 
el Apple se mantiene GET*$ y el resto se suprime. 
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Tampoco presenta ningún problema especial la línea 6100 con la función 
RND. Se han de generar números aleatorios de 1 a N. Enel Genie se puede 
escribir sencillamente RND(N) y si acaso colocar al principio del 
programa la orden RANDOM. De esta manera se consigue que se generen 
diferentes secuencias de números aleatorios en cada ejecución del 
programa. En lugar de lla variable TI se debe insertar en el Apple un 
número positivo. 

Ahora ya es posible introducir el programa en el ordenador propio. Para 
evitarse trabajo de teclado, se suprimen los comentarios. Esto podría 
conducir een este programa  amdificultades, debido a que se 
utilizan algunas líneas de comentarios como destino del salto. Estas 
líneas se deben marcar y al transcribirlas insertar como mínimo la palabra 
REM. 

Si no se ha cometido ningún error al teclearlo, debería funcionar el 
programa. El que lo desee puede ampliarlo. 


16.3 
Conversión de programas con revisión 


Si se observa el programa de la figura 16.1, se puede pensar, que debe 
de haber algún modo de acortar el programa, de reducirlo. A 
continuación mostramos como convertir un programa escrito en BASIC 
LEVEL-II, el utilizado en el Genie y el TRS 80, a la vez que se revisa. 
El programa consta del programa principal y 4 subprogramas activados uno 
tras otro. El programa ha sido concebido con esta estructura, idónea cuando 
se trata de programas largos, para poder ver este tipo de 
estructuración. Realmente no es necesario en este caso. También se puede 
escribir con las instrucciones una tras otra sin necesidad de 
subprogramas. 

Primero se suprime todo el subprograma INTRODUCCION, pues si nose 
dispone del libro al que se refiere, no tiene sentido. El que lo desee 
puede agregar una instrucción mas tarde. 
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1000 : PRINT * 

1010 : PRINT * DIECISIETE Y CUATRO 

1011 2: PRINT* o omo 

1020 REM JUEGO DE CARTAS, LA COMPUTADORA TIENE LA BANCA 
1099 : 

Es REM *Fkk PROGRAMA PRINCIPAL AAA 
2300 : GOSUB 3000 : REM INSTRUCCIONES 

2400 : GOSUB 4000 : REM INICIALIZACION 

2500 : GOSUB 5000 : REM PARTIDA 

2700 : GOSUB 7000 : REM FINAL O REPETICION 

2800 : END 

2900 REM *** FINAL PROGRAMA PRINCIPAL ***** 

2998 : 

3000 REM 4% SUBPROGRAMA INSTRUCCIONES HERA 

3010 : PRINT: PRINT 

3020 : PRINT"LE EXPLICO LAS REGLAS DEL JUEGO? (S/N) 
3030 : GET A$ : IF A5=" * THEN 3030 

3040 : IF A$5 <> "S" THEN RETURN 

3070 : PRINT "MIRE EN LA PAGINA 136 DEL LIBRO, POR FAVOR! 
3090 :FOR I=1 TO 500 : NEXT 1 

3900 : RETURN : REM FINAL INSTRUCCIONES HEHREAAA AAA AA 
3999 : 

4000 REM ff SUBPROGRAMA INICIALIZACION HEHERE AAA 
4100 : REM === PREPARAR LAS CARTAS 

4110 : DIM B(32) : REM TABLA DE LA CARTA 32 

4130 : LET T=0 

4140 : FOR I=1 TO 4 

4150 : FOR J=1 TO 8 

4160 : LET T=T+1 

4170 : LET B(T)=J3 

4180 : NEXT J 

4190 : NEXT I 

4199 : 

4200 : REM === VALORES INICIALES 

4210 : LET N=32 : REM NUMERO DE CARTAS EN EL MONTON 
4230 : LET WB=0 : REM VALOR DE LAS CARTAS DE LA BANCA 
4240 : LET WS=0 : REM VALOR DE LAS CARTAS DEL JUGADOR 
4900 : RETURN : REM FINAL INICIALIZACION HEHE 


4999 : 
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5000 REM 444 SUBPROGRAMA PARTIDA HEHEAARAA ARANA ARANA ANNAN ANA AAA 
5010 : PRINT “QQ COMIENZA EL JUEGO 

5100 : REM === REPARTIR CARTA A LA BANCA 

5120 : GOSUB 6000 : REM SACAR CARTA 

5130 : PRINT “QQ 

5140 : PRINT "HE RECIBIDO “;W$ 

5150 : LET WB=WB+W 

5200 : REM === REPARTIR CARTAS A LOS JUGADORES 
5210 : GOSUB 6000 : REM SACAR CARTA 

5220 : PRINT "USTED HA RECIBIDO ";W$;"Y"; 

5230 : LET WS=WS+W 

5240 : GOSUB 6000 : REM SACAR CARTA 

5250 : LET WS=WS+W 

5260 : PRINT W$ 

5300 : REM === JUGADOR SACA CARTAS 

5320 : PRINT 

5330 : PRINT "DESEA OTRA CARTA? (S/N) 

5335 : GET A$ : IF A$=" " THEN 5335 

5340 : IF A$ <> *S" THEN 5400 

5350 : GOSUB 6000 : REM SACAR CARTA 

5360 : PRINT "USTED HA SACADO ";W$ 

5370 : LET WS=WS+W 

5380 : GOTO 5320 : REM OTRA CARTA? 

5400 : REM === VALORACION DE LAS CARTAS DEL JUGADOR 
5420 : PRINT 

5430 : PRINT “LA SUMA DE SUS CARTAS ES DE *;WS 
5440 : IF WS >21 THEN 5800 : REM JUGADOR PIERDE 
5500 : REM === LA BANCA SACA CARTA 

5510 : PRINT "QQ 

5520 : GOSUB 6000 : REM SACAR CARTA 

5530 : PRINT "HE SACADO *;mW$ 

5540 : LET WB=WB+wW 

5550 : IF WB<17 THEN 5520 : REM OTRA CARTA 

5600 : REM === VALORACION DE LAS CARTAS DE LA BANCA 
5620 : PRINT “LA SUMA DE MIS CARTAS ES DE ";WB 
5700 : REM === DECISION DE JUEGO 

5720 : IF WB>21 THEN 5850 : REM GANA JUGADOR 
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5740 : IF WB=21 THEN 5800 : REM GANA BANCA 

5780 : IF WB<WS THEN 5850 : REM GANA JUGADOR 

5800 : PRINT "YO HE GANADO.":GOTO 5900 

5850 : PRINT “USTED HA GANADO! 

5900 : RETURN : REM FIN DE PARTIDA HERA AAA ARA ARANA AAA NA AAA 
6000 : REM +++ SUBPROGRAMA SACAR CARTA ++H+4++ +++ 4 ++ HH A 4 A A A tt 
6010 : REM --- SACAR 

6100 : LET R=INT(N*RND(TI)+1) 

6110 : LET K=B(R) 

6120 : LET B(R)=B(N) 

6130 : LET N=N-1 : REM EN EL MONTON HAY UNA CARTA MENOS 

6200 : REM --- INDICACIÓN DEL VALOR 

6220 : IF K=1 THEN LET W$="AS" : LET W=11 

6230 : IF K=2 THEN LET W$="SOTA" : LET W=2 

6240 : IF K=3 THEN LET W$="DAMA" : LET W=3 

6250 : IF K=4 THEN LET W$="REY" : LET W=4 

6260 : IK K>4 THEN LET W$=STR$(K+2) : LET W=k+2 

6290 : RETURN : REM FIN SACAR CARTAS +++44++++++++ +44 ++ + 44 + 
7000 REM ff SUBPROGRAMA FINAL O REPETICION HEHEAAEA AAA AAA ANNA 
7100 : PRINT 

7200 : PRINT “OTRA PARTIDA? (S/N) 

7210 : GET A$5 : IF A$=" * THEN 7210 

7220 : IF A$="S" THEN RUN 

7290 : RETURN : REM ff FIN DE FINAL O REPETICION HHEHEEE RANA 


Fig. 16.1 programa DIECISIETE Y CUATRO (Commodore) 


Para ello dejamos libre las líneas de la 110 a la 300. El programa 
comienza en 100 en el caso de que se hallan de anteponer órdenes o 
comentarios. 


100 CLS: PRINT (Y 143,"DIECISIETE Y CUATRO 


El carácter de control de la línea 1000 es sustituido por CLS y se 
posiciona el título con una orden PRINT. Las órdenes que se encuentran de 
la línea 4110 a la 4240 se copian del programa original aunque con una 
ligera simplificación. 
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Ya hemos acabado con la primera pagina del programa. Ahora le toca el 
turno a la parte de programa llamada PARTIDA. En esta parte se recurre 
mucho al subprograma SACAR CARTA. Estosignifica que también se debera 
escribir como tal en el nuevo programa. Comienza a partir de la línea 
1000 y sus órdenes son muy sencillas. Lo que se debe cambiar es la 
orden para determinar el número aleatorio, pues podemos escribir en el 
Genie esta orden de forma mas sencilla. 


1000 R=RND(N): K=B(R): B(R)=B(N): N=N-1 
1010 IF K=1 THEN W$="AS": W=11: GOTO 1060 
1020 IF K=2 THEN W$="SOTA": W=2: GOTO 1060 
1030 IF K=3 THEN W$="DAMA": W=3: GOTO 1060 
1040 IF K=4 THEN W$="REY": W=4: GOTO 1060 
1050 IF K>4 THEN W$=STR$(K+2): W=K+2 

1060 RETURN 


Ahora deberemos escribir la parte principal de PARTIDA. Se debe tener 
presente, que en la pantalla del Genie y el TRS 80 solo se presentan 16 
líneas. En este sentido se debe ahorrar al máximo las líneas vacías al 
programar y poder ver en pantalla un juego entero. En el programa original 
aparece un pregunta para sacar una nueva carta, y el texto para la carta 
sacada se escribe en otra línea, separada de la anterior por una 
vacía. Por eso deberemos modificar las órdenes de las líneas 5330 y 5350 
para que se escriban la pregunta y la respuesta en una misma línea. 
También sedeben resumirlas partes DAR CARTAS A LOS JUGADORES y 
JUGADOR SACA UNA CARTA para simplificar el programa. Esto no se 
atiene completamente a las reglas, porque según estas, el jugador 
debe recibir dos cartas. Pero asi el programa es mas corto. A 
continuación programamos la valoración. También aqui se simplifican 


400 PRINT € 271,"COMIENZA EL JUEGO" :PRINT 
410 GOSUB 1000 

420 WB=9WB+W 

430 PRINT "LA BANCA HA SACADO ";W$:PRINT 
440 GOSUB 1000 

450 WS=WS-+W 

460 PRINT "USTED TIENE ",W$; 

470 IF WS>21 THEN 600 

480 PRINT TAB(35)"OTRA CARTA (S) 

490 X$= INKEYS: IF X$=" " THEN 490 

500 IF X$="S" OR X$="s" THEN 440 
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algunas cosas. Según las reglas, el jugador pierde si supera el valor de 
sus cartas 21. Enel bucle de jugadores hay una orden de comparación. 
Según las reglas, la banca esta obligada a sacar carta si todavía no ha 
llegado a 17. Mientras que ninguno alcance 21, ni jugador ni banca, gana 
el que tenga las cartas con la suma mas alto. 


510 GOSUB 1000 

520 WB=WB+W 

530 PRINT "LA BANCA HA SACADO ";W$", OSEA, ";WB 
540 IF WB <17 THEN 510 

550 IF WB>21 THEN 620 

560 IF WB<WS THEN 620 

600 PRINT : PRINT "USTED HA PERDIDO": END 

620 PRINT : PRINT "USTED HA GANADO": END 


En la figura 16.2 podemos ver el programa final. Con este ejemplo 
vemos como se puede realizar la revisión de un programa sin necesidad de un 
análisis al detalle. Han sido adaptadas plenamente las asignaciones en 
los subprogramas y el bucle inicial. 

Para los que quieran saber todo al detalle tenemos aqui la explicación: 
en el bucle se asigna cuatro veces los números del 1 al 8 a los 32 
elementos del campo B(x). En primer lugar se determina en el subprograma 
un número aleatorio de 1 a N. El número almacenado en el elemento de 
campo determinado por N condicionada la carta sacada. En las 
siguientes órdenes de comparación asigna el programa el símbolo de la 
carta a la variable W$ y el valor de la carta a la variable W. 

La carta sacada se coloca al final de la baraja para que no sea extraída 
nuevamente. En la primera petición tiene N el valor 32. En cada petición 
se rebaja el valor de N en una unidad y se asigna al elemento de N el 
contenido del elemento fijado por el número aleatorio. Este ya no 
podrá ser llamado en una subsiguiente ejecución del subprograma. De 
este modo solo se forman los números aleatorios de las cartas que resten 


En la figura 16.3 tenemos dos ejecuciones de este programa. 
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10RANDOM 

100 CLS: PRINT €143,"DIECISIETE Y CUATRO 
300 DIM B(32) 

310 FOR I=1 TO 4 

320 FOR J=1 TO 8 

330 T=T+1 : B(T)=J 

340 NEXT J 

350 NEXT 1 

360 N=32: WB=0:WS=0 

400 PRINT €271,“COMIENZA EL JUEGO" :PRINT 
410 GOSUB 1000 

420 WB=WB+w 

430 PRINT "LA BANCA HA SACADO “;W$: PRINT 
440 GOSUB 1000 

450 WS=WS+W 

460 PRINT"USTED TIENE “,W$; 

470 IF WS>21 THEN 600 

480 PRINT TAB(35)"OTRA CARTA (S) 

490 X$=INKEYS$: IF X$=" " THEN 490 

500 IF X$="S" OR X$="s" THEN 440 

505 PRINT 

510 GOSUB 1000 

520 WB=WB+W 

530 PRINT “LA BANCA HA SACADO "“;W$", 0 SEA, “¿WB 
540 IF WB<17 THEN 510 

550 IF WB>21 THEN 620 

560 IF WB<WS THEN 620 

600 PRINT:PRINT “USTED HA PERDIDO": END 
620 PRINT:PRINT “USTED HA GANADO": END 
1000 R=RND(N): K=B(R): B(R)=B(N): N=N-1 
1010 IF K=1 THEN W$="AS": W=11: GOTO 1060 
1020 IF K=2 THEN W$="PRINCIPE": W=2: GOTO 1060 
1030 IF K=3 THEN W$="REINA": W=3: GOTO 1060 
1040 IF K=4 THEN W$="REY": W=4: GOTO 1060 
1050 IF K>4 THEN W$=STR$(K+2): W=K+2 

1060 RETURN 


Fig. 16.2 Programa DIECISIETE Y CUATRO convertido para el Genie. 
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Diecisiete y cuatro 
Comienza el juego 


La banca ha sacado 8 

Usted ha sacado dama Otra carta (S) 
Usted ha sacado 10 Otra carta (S) 
Usted ha sacado 7 Otra carta (S) 
La banca ha sacado dama, o sea 11 

La banca ha sacado as, o sea 22 


Usted ha ganado 


Fig. 16.3 ejecución del programa DIECISIETE Y CUATRO 
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16.4 Convertir un programa 
con almacenamiento externo 


La conversión de programas en soportes externos de datos, diskettes o 
casettes, requiere mas reflexión. En la figura 16.4 explicamos el modo de 
proceder. 

Es un programa que ayuda al alumno a aprender vocablos extranjeros. 
Por la orden CLEAR de la línea 30 reconocemos que es un programa escrito 
en el Genie o el TRS 80, que utiliza una grabadora para almacenar las 
cadenas de string. 

El análisis de este programa es muy simple. En el menú se pueden elegir 
cuatro porciones diferentes de programa y el final. 

Se tratan a la vez seis palabras alemanas y extranjeras, que se 
encuentran almacenadas o se leen de un registro de datos. Para leerlas 
se emplea un subprograma. 

Para tener que modificar poco, deberemos escribir nuevamente las órdenes 
desde la línea 1045 hasta la línea 1100 y el subprograma. Suponga mos 
que queremos aplicar este programa a una computadora Commodore. Para el 
sistema operativo con grabación de diskettes, el Commodore presenta en la 
pantalla algunas anotaciones sobre su utilización. De esta forma podemos 
suprimirlas, pero en cambio debemos agregar una orden OPEN y al final una 
orden CLOSE. 

Las variables que se deben almacenar estan en forma de lista en una orden 
PRINT. Es una ventaja del Genie, ya que de esta forma resulta mas rápido 
el almacenamiento. Si no, para cada orden RETURN se tendrían que 
considerar 256 bytes de espacio de memoria del registro de datos cerrado. 
El Commodore funciona de otra manera. Se puede utilizar un bucle para 
la salida de almacenamiento. El programa será tal como sigue: 


1050 OPEN 1,1,2,"VOCABULOS"* 
1060 FOR K=1 TO 6 

1070 PRINTS1,FF(K) 

1080 PRINTS1,EF(K) 

1090 NEXT 

1100 CLOSE 1 

1120 GOTO 100 
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10 REM PROGRAMA PARA OPERACION DE CASSETTE 
30 CLEAR 5000 

100 CLS:PRINT:PRINT: 

110 PRINT"APRENDER VOCABULOS": PRINT 

120 PRINT"1 ALMACENAR NUEVAS PALABRAS 

130 PRINT"2 PREGUNTAR: ALEMAN- EXTRANJERO 

140 PRINT"3 PREGUNTAR: EXTRANJERO-ALEMAN 

150 PRINT"4 EDITAR LA MEMORIA 

160 PRINT"S FIN DEL PROGRA,A 

170 PRINT: INPUT" INTRODUCIR NUMERO" ;X 

180 IF X=5 THEN END 

190 ON X GOTO 1000,2000,3000,4000 

200 GOTO 100 

1000 CLS 

1010 FOR K=1 TO 6 

1020 INPUT"EXTRANJERO" ;F$(K) 

1030 INPUT"ALEMAN*" ¿Dg(K) 

1040 NEXT 

1045 CLS: PRINT"PONER GRABADORA A PLAY-RECORD" 
1046 INPUT"YA ESTA, PUES PULSAR RETURN"; X$ 
1050 

PRINTS-1,F$(1) ,D5(1) ,F$(2) ,D05(2) ,F$(3) ,05(3) ,F$(4) ,D05(4) ,F$(5), 
D$(5),F5(6),D5(6) 

1060 INPUT"MAS ENTRADAS (S)";X$ 

1070 1F X5="S" OR X5="s" THEN 1000 

1100 CLS: PRINT"LEER EL CONTADOR DE CINTA" 
1110 INPUT"CONTINUAR";X$ 

1120 GOTO 100 

2000 GOSUB 5000 

2010 FOR K=1 TO 6 

2020 PRINT"TRADUCE ";D$(K) 

2030 INPUT S$(K) 

2040 NEXT 

2050 PRINT"ALEMAN", “EXTRANJERO” "ENTRADA DEL ALUMNO 
2060 FOR K=1 TO 6 

2070 PRINT D$(K) F$(K) ,S$(K) 

2080 NEXT 

2090 INPUT“OTROS VOCABULOS";X$ 

2100 IF X5="S" OR X5="s" THEN 2000 

2110 GOTO 100 

3000 GOSUB 5000 

3010 FOR K=1 TO 6 

3020 PRINT"TRADUCE *;F$(K) 

3030 INPUT S$(K) 

3040 NEXT 

3050 PRINT"EXTRANJERO" ,"ALEMAN " “ENTRADA DEL ALUMNO 
3060 FOR K=1 TO 6 

3070 PRINT F5(K) D$(K),S$(K) 

3080 NEXT 
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3090 INPUT"OTROS VOCABULOS";Xg 
3100 IF Xg="S" OR Xg="s" 

3110 GOTO 100 

4000 GOSUB 5000 

4010 FOR K=1 TO 6 SIEP 2 

4020 PRINT F$(K) ,DS(K) ,F$(K+1) ,D$(K+1) 

2030 NEXT 

4040 INPUT"OTROS VOCABULOS “;X$ 

4050 IF X5="S" OR X$="s" THEN 4000 

4060 GOTO 100 

5000 PRINT:PRINT"SITUAR LA CINTA AL PRINCIPIO" 

5010 INPUT"GRABADORA EN PLAY,LUEGO RETURN" ;X$ 

5020 INPUTS-1,F5(1),D5(1),F5(2),05(2),F5(3),0$(3),F5(4),D$(4), 
Fs (5),D$(5),F$(6),D$(6) 

5030 RETURN 


Fig. 16.4 programa APRENDER VOCABULOS. 


Lo mismo vale para el subprograma de lectura. Solo se mantiene la 
instrucción de la línea 5000, lo demás se modifica de tal forma que 
puede funcionar en el BASIC del Commodore. La transformación para 
otras computadoras tampoco debería ser muy difícil. lia única condición es 
que se puedan almacenar los datos en forma de cadenas de caracteres. 


5000 PRINT:PRINT"SITUAR LA CINTA AL PRINCIPIO" 
5010 OPEN 1,1,0.”VOCABULOS” 

5020 FOR K=1 TO 6 

5030 INPUTH ,FS(K) 

5040 INPUTHL ,DS(K) 

5050 NEXT 

5060 CLOSE 1 

5070 RETURN 


La cosa se complica cuando se desea realizar una conversión trabajando con 
discos. En el cassette es el usuario el que recorre hacia delante o hacia 
atrás la cinta para colocarla al comienzo del registro. Con esto se ahorran 
órdenes de programa que son sin embargo necesarias al operar con discos. 
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En este caso se almacenan en forma de bloque 6 palabras alemanas y 
extranjeras de forma sucesiva. El usuario debe ver donde puede comenzar 
un nuevo bloque guiándose por el contador de cinta. Esto no se puede 
llevar a cabo con los discos. Por eso es necesario transformar el programa 
para poder almacenar en disco. Se ha de poder diferenciar entre ajustar 
de nuevo el fichero y agregar otros juegos de caracteres con vocablos. 
A continuación mostramos la cantidad de modificaciones que requiere el 
programa para poder ejecutarlo en un Apple. Se debe agregar una nueva línea 
de elección y ampliar la orden ON...GOTO de la línea 190. 


155 PRINT"5 DISPONER EL FICHERO" 
160 PRINT"6 FINALIZAR EL PROGRAMA" 
190 ON X GOTO 1000,2000,3000,4000,6000 


Ahora nos encontramos con que el Apple utiliza la variable D$ para CTRL-D 
para llamar comandos de DOS en algunas órdenes de programa. Por eso 
deberemos cambiar esta variable, que sirve para las palabras en alemán, 
por E$ en las líneas 1020, 2020, 3070 y 4020. Asi se puede utilizar D$ de 
forma habitual. 

Lo mas fácil es el programa para ajustar el fichero. Consta únicamente de 
una orden de abrir y otra de cerrar. 


6000 PRINT D$; "OPEN"; VS 
6010 PRINT D$;"CLOSE";V$ 
6020 GOTO 100 


Si ya se tiene algún fichero en el disco, se puede ampliar por el final 
con la orden APPEND. Se utiliza para escribir nuevas palabras en la 
primera parte del programa. 


1050 PRINT D$;"APPEND";V$ 
1060 PRINT D$; "WRITE"; V$ 
1070 FOR K = 1 TO 6 

1080 PRINT F$(K) 
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1090 PRINT E$(K) 

1100 NEXT 

1110 PRINT D$;"CLOSE";V$ 
1120 GOTO 100 


Mas problemáticas resultan las órdenes que se refieren a la lectura del 
subprograma. De todos los vocablos almacenados, se deben editar cada vez 
solo seis. Esto significa que debe permanecer el fichero abierto por si 
desea el alumno otra serie de palabras. Por eso no hay en el subprograma 
una orden CLOSE. En cambio si que se encuentra la orden PRINT D$, que 
suspende la orden WRITE y vuelve a la edición por pantalla. 


5000 PRINT D$; "OPEN" ;V$ 
5010 PRINT D$;"READ";V$ 
5020 FOR K = 1 TO 6 
5030 INPUT F$(K) 

5040 INPUT E$(K) 

5050 NEXT : PRINT D$ 
5060 RETURN 


También se modifican las órdenes en las posiciones de retorno de este 
subprograma. Si no se van a tratar mas vocablos, se cierra el fichero y se 
retorna al menú. 


2100 IF X$<>"S" THEN PRINT D$;"CLOSE";V$:GOTO 100 
2110 GOSUB 7000 
2120 GOTO 2010 


De la misma manera se tienen que cambiar las órdenes desde la línea 3090 
hasta la 3110 y de la línea 4040 a la línea 4060. 

Para una nueva lectura del fichero se tiene que escribir un subprograma 
nuevo. 


7000 PRINT D$; "READ";V$ 
7010 FOR K = 1 TO 6 

7020 INPUT F$(K) 

7030 INPUT E$(K) 

7040 NEXT: PRINT D$ 

7050 RETURN 
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No se puede olvidar de sustituir la orden CLS de las líneas 100 y 1000 por 
la orden HOME. En el Apple no es necesaria la orden de la línea 30. 
Necesita en cambio asignar valores a D$ y V$ antes del programa. 


30 D$="": V$="VOCABLOS 


Ahora ya debería funcionar el programa. Sin embargo pueden aparecer 
algunos problemas con la orden PRINT de las líneas 3050, 3070 y 4020. 
En ellas se encuentra programada la edición en tres e incluso cuatro 
columnas. En una pantalla de 40 caracteres por línea no se puede editar. 
Estasórdenes podemos cambiarlas por otras que supongan una ediciónen mas 
líneas y menos columnas. 


16.5 Conversión de programas 
con edición en impresora 


No siempre es fácil convertir programas que editan los resultados 
por la impresora en lugar de hacerlo por la pantalla. Se utilizan diferentes 
métodos de conexión de la impresora, lo que requiere diferentes 
construcciones de órdenes. 

En general nos encontraremos con tres dificultades primordiales: 


- Las órdenes para desviar la edición por pantalla a impresora se deben 
cambiar o agregar. 

- Las órdenes de formateo para la edición en la pantalla y en la impresora 
son distintas en su composición y significado. 

- La interpretación de los comandos de control en cada impresora difiere y 
además cada computadora genera estos comandos de diferente manera. 


Mediante un ejemplo explicamos lo que se debe considerar para la conversión 
de uno de estos programas. 

En el programa de la figura 154 BUSCAR PASAJES DE TEXTOS 
tenemos la elección para que se edite o imprima el menú de la 
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palabra a buscar. En el Genie/TRS 80, en el que se escribió este programa, 
son sustituidas las órdenes PRINT de salida por pantalla, por LPRINT, 
si han de ser impresas. Todo lo demás lo soluciona el sistema operativo. Aun 
así, los bucles de impresión son distintos que los de edición. 


Bucle de edición Bucle de impresión 
100 FOR Z=1 TO 56 1010 FOR Z=1 TO 14 
110 READ A$ 1020 FOR K=1 TO 4 
120 PRINT Z;A$, 1030 X=X+1 

130 NEXT Z 1040 READ A$ 


1060 LPRINT X;A$,: NEXT K 
1070 LPRINT: NEXT Z 


Al confeccionar el programa hay que recordar que la pantalla del Genie tiene 
64 caracteres por línea, mientras que en la mayoría de impresoras se pueden 
escribir 80 caracteres por línea. En el bucle de salida se pone la coma, 
para que esta se realice en 4 columnas. Si se escribiera el bucle de 
impresión igual que el de edición pero cambiando las órdenes, tendríamos 
una impresión de 6 columnas, con lo que se alteraría toda la imagen. 
En el bucle de impresión también va una coma después de la orden LPRINT 
para que se imprima en columnas. Pero se utilizan dos bucles anidados. 
Después de repetirse el bucle interior 4 veces sucede un avance de línea 
debido a la orden LPRINT vacia. 

En el bucle se debe insertar un contador especial, pues el contador 
del bucle no puede enumerar mas que 56 palabras de búsqueda. 
Las mismas dificultades encontramos con la función TAB. En algunas 
versiones de BASIC, el argumento no puede ser mayor que el número de 
caracteres permitido por línea. 

Los comandos de control del cursor y la orden PRINT-AT no tienen ningún 
significado si se hallan en el lugar donde se debe imprimir. Para ejecutar 
este programa en una computadora que no reconoce la orden PRINT será 
necesaria una ampliación de esta parte del programa. El programa para el 
Commodore sería de la forma: 
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1010 OPEN 2,4 

1020 CMD 2 

1030 FOR Z= 1 TO 14 
1040 FOR K=1 TO 4 

1050 X=X+1 

1060 READ A$ 

1070 PRINT X;A$,:NEXT K 
1080 PRINT: NEXT Z 

1090 PRINTF2 : CLOSE 2 


Primero se debe abrir un canal de salida para la impresora. Si a 
continuación se escribe una orden CMD, irán todas la órdenes PRINT y 
todas las salidas a la impresora. Se imprime sólo en la impresora hasta que 
se incluya una orden PRINTA. Finalmente se debe cerrar este canal. 
En el Apple se tiene que activar con PRA el 'slot' para la impresora. 
Entonces también se producen las salidas con PRINT a través de la 
impresora. Finalmente se tiene que pasar de nuevo a la pantalla con PRA0. 


1010 PRINT "PR*1" 

1020 FOR Z= 1 TO 14 

1030 FOR K= 1 TO 4 

1040 X=X+1 

1050 READ A$ 

1060 PRINT X;A$,: NEXT K 
1070 PRINT: NEXT Z 

1080 PRINT "PREO" 


Hay que añadir, que antes de utilizar la impresora, si se 
trabaja con discos, se debe introducir el signo de control CTRL-D 
(código ASCII 4). 

Los ejemplos muestran que en algunas versiones de BASIC existen serias 
dificultades para la conversión de programas que usan impresora. Se debe 
tener especial cuidado cuando no se dispone de la orden LPRINT para que 
aparezcan expresiones en la pantalla y la impresora a la vez. 

Si se tiene conectada la salida por impresora, se presentaran también los 
caracteres o signos que suelen aparecer por la pantalla. Asi por 
ejemplo notificación de errores y READY. 
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Para evitarlo, se debe pasar enseguida después de la orden de impresión a 
la pantalla. Por contrapartida la orden LPRINT dirige los datos que se 
encuentran en los comandos únicamente a la impresora. 

El tercer problema con que nos encontramos al querer convertir un 
programa con salida por impresora son los caracteres de control. 
Muchas impresoras pueden imprimir con diferentes tipos de escritura. A 
veces se realiza la conmutación mediante expresiones de conmutación, pero 
la mayoría de las veces se lleva a cabo a través de los comandos de 
control. Se utilizan los códigos de ASCII decimales del 14 al 20. 
Algunas impresoras utilizan dos caracteres de control, ESCAPE (código 
ASCII 27) seguido de una letra. 

Hay unas impresoras que pueden trabajar distintos juegos de caracteres 
ASCII. Asi por ejemplo, se pueden imprimir en el castellano los 
acentos, en alemán las letras con diéresis, en el francés los acentos, etc. 
Si no se puede realizar la conmutación en un equipo de conexión, se 
deberá comunicar a la impresora al principio del programa, mediante 
unos comandos de control, el juego de caracteres correcto. 

Mas difícil será el programa cuando se dirijan en un programa mediante 
caracteres de control el transporte de línea y el tabulador de 
impresión. Incluso si se accionan estos caracteres con la función CHR$, 
resulta difícil conocer su significado. Si nos encontramos con un programa 
en el que se han introducido caracteres de control que no se imprimen en 
la lista del programa, ya no hay nada que hacer. 


16.6 Conversión de programas con gráficos 


Los programas que presentan cualquier tipo de dibujo o gráfico requieren 
una serie de consideraciones previas. Á veces resulta mucho mas laborioso 
convertir uno de estos programas, que escribir uno nuevo adaptado al 
ordenador propio. 

Podemos reconocer que el programa de juegos de la figura 16.5 se ha 
escrito con una computadora Commodore. Reproduce el movimiento de una 
figura. 


Como convertir programas 


100 : PRINT * * 


110 : PRINT * LAGARTIJA 

111 : PRINT * rn 

112 : 

120 REM JUEGO DE REACCION Y HABILIDAD 

121 : 

200 REM zzz REGLAS DEL JUEGO DIRE ZII zzz 
201 : 

210 : PRINT 


220 : PRINT "LA LAGARTIJA INTENTA CAZAR 
225 : PRINT " A LA MOSCA. 

230 : PRINT “PARA ACCIONAR LA LENGUA 
235 : PRINT “PULSE CUALQUIER TECLA. 


240 : PRINT 

250 : PRINT "PULSE AHORA UNA TECLA! 

260 : 

270 : GET Tg : IF Tg=" " THEN 260 

290 : 

300 REM === PREPARAC 10N TIETZIZETZEZZIEZ DERE ZEZZZIZZZZZZZz== 
301 : 

310 : PRINT " * 

320 : PRINT TAB(14) * PREPARADO! * 

330 : 


340 : FOR 1=1 TO 1000 : NEXT 1 : REM TIEMPO DE AVISO 
360 . LET TI$= "000000"  : REM SE PONE EL RELOJ A CERO 
380 : LET 2=0 : REM CONTADOR DE MOSCAS 


400 REM === JUEGO ASS 


401 : 
410 : PRINT * * 


430 : REM --- SITUAR LA MOSCA ---- 

450 : LET R=INT(10*RND(TI)) 

460 : LET X=32768 +11+R*40+1NT(29*RND(TI)) 
470 : POKE X,42 


500 : REM --- DEJAR MOVERSE A LA LAGARTIJA ----- 


510 : FOR K=33696 TO 33726 : REM K ES LA CABEZA DE LA LAGARTIJA 


515 : POKE K-1,32 : POKE K,32: POKE K-41,32: POKE K-40,32 
520 POKE K,121: POKE K-1, 37: POKE K-2,37: POKE K-3,37 
530 POKE K-4,37: POKE k-5, 61: POKE K-6,61: POKE K-7,61 
540 POKE K-8,64: POKE K-40,122: POKE K-39,46: POKE K-9,32 


550 POKE K+39,60: POKE K+38,32: POKE K+36,62 : POKE K+35,32 


610 : 


620 : PRINT “S“;" TIEMPO: “;TIS : REM INDICADOR DE TIEMPO 


630 : 


201 
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640 : GET As 
650 : IF Ag=" ” THEN 710 : REM SIGUIENTE PASO DE LA LAGARTIJA 


660 : GOSUB 800: REM TENTATIVA DE ATRAPAR 


670 : 

680 : IF (TI-TO)/60 < 60 THEN 400 : REM EL PROXIMO 
690 : GOTO 900 : REM SE ACABO EL TIEMPO 

700 : 

710 : NEXT K 

720 : 

750 : GOTO 400 : REM NUEVO INTENTO 

799 


800 REM +++ SUBPROGRAMA TENTATIVA DE ATRAPAR ++r+r+rr+rrrrrrrrr+++ 


805 : REM --- LENGUA SILBA HACIA ARRIBA -==============mnoooo 
810 : FOR T=K-80 TO K-960 STEP -40 
815 : POKE 1,103 


820 : IF PEEK(T-40) — 42 THEN 870 : REM NO SE HA COGIDO NADA 
825 : FOR H=T TO K STEP 40 

830 : POKE H-40,32 : POKE H,81 

832 : FOR I=1 TO 5: NEXT 1 

834 : NEXT H 


840 : REM --- TRAGAR LA PRESA == === -==============o==-.=-=--- 
845 : POKE K-39,32 :POKE K-40,32 :POKE K,98 

847 : POKE K+1,98 

849 : FOR I=1 TO 50 : NEXT 1 

850 : POKE K,98 : POKE K+1,111 


860 : GOSUB 880 : RETURN : REM TRAGAR 
865 : POKE 1,103 : POKE T,32 


869 : 
870 : NEXT T 
875 : RETURN 
879 : 


880 : REM +++ SUBPROGRAMA TRAGAR +++ ++ 

885 : PRINT: PRINT " M, M!! 

888 : LET 2=2+1 

890 : PRINT : PRINT Z; “MOSCAS CAZADAS” 

892 : FOR I=1 TO 1000: NEXT 1 : REM TIEMPO DE DIGESTION 


896 : RETURN 
899 : 

900 REM === FIN DEL JUEGO ========================3:::======== 
910 : PRINT: PRINT :PRINT 

920 : PRINT "SE CONSUMIO EL MINUTO" 

930 : . 

90 : END 


Fig. 16.5 Programa LAGARTIJA 
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Las órdenes desde las líneas 515 a 550 con las que se situan símbolos en la 
memoria de la pantalla, se hallan en un bucle. Si no se añade 
ningún tipo de aclaraciones en el programa resultara imposible ver lo 
que se representa en la imagen. Aqui comienza el análisis del programa. 
Para ello cogeremos una hoja de papel cuadriculado. El punto de partida es 
la posición indicada con K. Si se parte de que la pantalla presenta 40 
caracteres por línea, estará la posición K-40 directamente sobre K, y 
la posición K + 40 directamente debajo de K. Cuando hayamos marcado todas 
las posiciones que aparecen en las órdenes POKE, tendremos un dibujo como 
el de la figura 16.64. 

Ahora ya se delimitan los contornos de la figura, pero se debe averiguar 
que caracteres de pantalla se han utilizado. Para ello consultaremos la 
tabla de los códigos de pantalla que se emplean en las computadoras 
Commodore (fig. 10.3) Al colocar los signos correspondientes en las 
cuadrículas, vamos obteniendo la figura de una lagartija, tal como vemos en 
la figura 16.6b. 

El código 32 que podemos encontrar en las órdenes POKE es el carácter de 
espacio vacío. ¿El espacio vacío se encuentra siempre a la izquierda 
junto a una posición ocupada por un símbolo. Sirve para borrar 
el caracter escrito anteriormente, si se mueve la figura. 

Ahora se tiene que acomodar la imagen a la computadora Commodore 
empleada en este caso. No hay que olvidar que en el Genie tenemos una 
pantalla de 64 caracteres por cada una de las 16 líneas. Se debe modificar 
las posiciones de la pantalla (fig. 16.6c). 

A continuación buscaremos del juego de caracteres que dispone la propia 
computadora los símbolos convenientes. En el Genie también se utiliza 
el código ASCII para la pantalla. Para simplificarlo, creamos la 
lagartija utilizando únicamente caracteres ASCII y limitándolos a 
dos líneas. En el Genie deben ahorrarse en lo posible líneas de la 
pantalla. Los que deseen definir más la lagartija pueden utilizar además los 
símbolos gráficos de la figura 5.2. 
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COL bajas 
OBOBAABADON 
+]+ +]|+ 
35/36] [38/39 


Fig. 16.6 Composición de la figura móvil del programa LAGARTIJA:a) posiciones de 
memoria en el programa original, b) caracteres almacenados, c) posiciones de memoria en 
el programa convertido para el Genie, d) caracteres almacenados. 


Como convertir programas 205 


El siguiente paso será confeccionar una tabla con las direcciones de 
pantalla y los valores de ASCII a introducir. También con el Genie es 
preferible dejar que la computadora haga los cálculos. Se comienza con la 
posición K donde esta situada la cabeza de la lagartija. 


Posición Carácter Valor código 
K > 62 
K+ 1 = 61 
K- 1 % 37 
K- 2 % 37 
K- 3 % 37 
K- 4 % 37 
K- 5 % 37 
K- 6 % 37 
K- 7 - 45 
K- 8 - 45 
K- 9 - 45 
K - 10 - 45 
K + 60 > 62 
K + 63 < 60 
K - 63 vacío 32 
K - 11 vacío 32 
K + 59 vacío 32 
K + 62 vacío 32 


Ahora sólo falta calcular el punto de partida. En el programa original se 
mueve la lagartija de 33 696 hasta 33 726. La memoria de pantalla del 
Commodore comienza en 332 768 y cada línea ocupa 40 posiciones de 
memoria. Esto supone que la cabeza se halla en la línea 23 y la posición 8. 
Con la computadora se puede calcular de la siguiente manera: 
1NT(33696-32768)/40 proporciona la línea 
33696-1línea*40 proporciona la posición 


La lagartija ocupa dos líneas y se puede mover de izquierda « derecha. 
Por eso se tiene que situar en la penúltima línea comenzando por 
arriba. Esta línea comienza en el Genie en 16 256. Para que sea fácil 
de reconocer al principio, ha de comenzar la cabeza de la lagartija en 
la posición 12 de esta línea, o sea, en 16 268. Después de estas 
consideraciones ya podemos escribir las órdenes POKE. Lo mejor será no 
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ejecutarlas en un bucle, para ver solamente el animal en la pantalla. 


500 FOR K = 16268 TO 16315 

510 POKE K-63,32 : POKE K-11,32 : POKE K+59,32 
520 POKE K,62 : POKÉ K+1,61 : POKE K+62,32 
530 POKE K-1,37 : POKE K-2,37 : POKE K-2,37 
540 POKE K-4,37 : POKE K-5,37 : POKE K-6,37 
550 POKE K-7,45 : POKE K-8,45 : POKE K-9,45 
560 POKE K+63,60 : POKE K+60,62 : POKE K-10,45 


A continuación le toca el turno a las órdenes que situan la mosca que 
se debe atrapar. Para ello se debe examinar la orden de la línea 460. En 
ella se calcula la posición determinada aleatoriamente. El punto de 
partida es la esquina superior izquierda de la pantalla (32 768) a la 
que se le van añadiendo cada vez 11. Esto es asi, porque sino, con la 
lengua de la lagartija no se podría alcanzar nunca una mosca que 
estuviera completamente a la izquierda. Para calcular la línea donde se 
halla la mosca, se multiplica el número aleatorio KR por el número de 
caracteres por línea. El segundo número aleatorio determina la posición 
en una línea. Según estas observaciones, tendremos las siguientes órdenes 
para el Genie: 


400 CLS 

450 R = RND(9) 

460 X = 15360+11 + R*64 +RND(28) 
470 POKE X,42 


Ejecutando esta parte del programa sucesivas veces, se podrá comprobar 
si esta correcto o no. Si lo está, deberá colocarse en un bucle y además 
deben asumir las siguientes órdenes del programa original. 


500 FOR K = 16268 TO 16315 

640 A$ = INKEVY$: IF A$="" THEN 710 
710 NEXT 

750 GOTO 400 

660 GOSUB 800 
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Finalmente tenemoselsubprograma TENTATIVA DE CAPTURA. Esta 
parte se simplifica eliminando la parte TRAGAR LA PRESA. Como se 
ve, se dispara un rayo desde la cabeza de la lagartija hacia arriba. 
Este rayo vuelve con la presa, si se alcanzó la mosca. 

La orden de la línea 810 del original, que debe escribirse en esta línea, se 
ha de calcular para el Genie con 64 caracteres por línea. Lo mismo sucede 
con las órdenes de las líneas 820 y 830. La forma de la parte del programa 
tal como la presentamos en el ejemplo no cumple las exigencias del 
programa original. Pero resulta mas fácil de visualizar. 


800 FOR T = K-64 TO K-896 STEP -64 
810 POKE T,33 

820 IF PEEK(T-64)<>42 THEN 870 

825 FOR H = T TO K STEP 64 

830 POKE H-64,32 : POKE H,48 

834 NEXT H 

860 GOSUB 880 

870 NEXT 

875 RETURN 


Se simplifica el subprograma para contar las moscas: 


880 7 = Z+1 
890 PRINT Z;"cazo moscas!! 
896 RETURN 


Finalmente se deben superar las dificultades para la evaluación del juego. 
En el original se trabaja con tiempo. Pero como que el Genie solo tiene 
dispositivo de tiempo en la versión de disco, se utiliza en el 
programa convertido un contador. Al repertirse diez veces seguidas la 
lagartija, se interrumpe. 


720 A=A+1: IF A<11 THEN 750 
730 CLS: PRINT: PRINT: PRINT: PRINT 
740 PRINT"la lagartija ha cazado”;Z;"moscas”: END 


En la figura 16.7 podemos ver el programa final. Se puede presentar 
mucho mas ampliado y mejorado, pero para su objetivo ya es suficiente. 
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En este ejemplo puede verse que son necesarias numerosas 
observaciones a la hora de convertir un juego que utilice gráficos. 
Por eso resulta casi imposible transformar los programas de juegos con 
gráficos o video en color. 


90 CLS 

100 PRINT" juego: lagartija atrapa moscas 
105 PRINTY mcr 
110 PRINT: PRINT: PRINT 

120 PRINT"La lagartija puede fallar 10 veces" :PRINT 
130 PRINT"Pulsar cualquier tecla para cazar moscas 
135 PRINT: PRINT 

140 PRINT“Todo claro? Pulsar cualquier tecla" ;X$ 
150 X$=INKEY$ : 1F X5= "" THEN 150 

400 CLS 

450 R = RND(9) 

460 X = 15360+11 + R*64 + RND(28) 

470 POKE X, 42 

500 FOR K = 16268 TO 16315 

510 POKE K-63,32 : POKÉ K-11,32 : POKE K+59,32 
520 POKE K,62 : POKE K+1,61 : POKE K+62,32 

530 POKE K-1,37 : POKE K-2,37 : POKE K-3,37 

540 POKE K-4,37 : POKE K-5,37 : POKE K-6,37 

550 POKE K-7,45 : POKE K-8,45 : POKE K-9,45 

560 POKE K+63,60 : POKE K+60,62 : POKE K-10,45 
640 A$ = INKEYS: IF A$-"" THEN 710 

660 GOSUB 800 

710 NEXT 

720 A=zA+1: IF A< 11 THEN 750 

730 CLA: PRINT: PRINT: PRINT: PRINT 

740 PRINT"la lagartija ha cazado" ;Z;"moscas":END 
750 GOTO 400 

800 FOR T = K-64 TO K-896 STEP -64 

810 POKE T,33 

820 IF PEEK(T-64) 42 THEN 870 

825 FOR H = T TO K STEP 64 

830 POKE H-64,32 : POKE H,48 

834 NEXT H 

860 GOSUB 880 

865 RETURN 

870 NEXT 

875 RETURN 

880 7 = Z+1 

890 PRINT Z;"cazo moscas !! 

896 return 


Fig.16.7 Programa lagartija caza moscas' transformado para el Genie. 
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Código ASCII (versión internacional) 


00 
01 

02 
03 
04 
05 
06 
07 
08 
09 
OA 
0B 
0C 
0D 
OE 
OF 
10 
11 

12 

13 


Binario 


0010100 
0010101 
0010110 
0010111 


0011000 
0011001 
0011010 
0011011 
0011100 
0011101 
0011110 
0011111 


Hexadecimal 


N 
00 


Binario 


0100100 
0100101 
0100110 
0100111 
0101000 
0101001 
0101010 
0101011 
0101100 
0101101 
0101110 
0101111 
0110000 
0110001 
0110010 
0110011 
0110100 
0110101 
0110110 
0110111 


0111000 
0111001 


0111010 
0111011 
0111100 
0111101 
0111110 
0111111 


La) 


entr Mi A 


Código ASCII 


pal 

40 
41 

42 
43 
44 
45 
46 
47 
48 
49 

4A 
48 
4C 
4D 


Binario 


1001010 
1001011 


1001101 
1001110 
1001111 


1010100 
1010101 
1010110 
1010111 


1011000 
1011001 
1011010 
1011011 
1011100 
1011101 
1011110 
1011111 
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1100100 
1100101 
1100110 
1100111 


1101000 
1101001 
1101010 
1101011 


1101100 
1101101 
1101110 
1101111 


1110000 
1110001 
1110010 
1110011 


1110100 
1110101 
1110110 
1110111 


1111000 
1111001 
1111010 
1111011 
1111100 
1111101 
1111110 
1111111 
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Comandos de programa BASIC 


o fare | AbandomarBasic | | 
— meca subrul ina en lenguaje maquina 0 
po | CLEAR | Borrar memoria y reservar 
EA A 
| A [DATA | Comienzo de una línea de datos | 0 | 
| A [DEF FN_ | Función definida por el usuario ____| Q | 
[| [DEFDBL____| Define variable de doble precisión | 
2 [DEFINT_ | Define variable como Integer | | 
O Y 
[DIM___ |  Dimensiona un campo ___________|0_| 
A TE E 
[A JEND  _ | Final progra _—___ "60 
lA | FOR...TO | Condicion inicio bucle ______ [0 | 
Do [GET [|  lLeerentrda "0 | 
| A [Gosue— | Llamada subprograma  _  __________|0 | 
AO at cmd 
| HTAB—_ | Tabulador horizontal ___________| _ | 
TEN | rn de decisión 97] 
> | INP... || Secuencia digitos de port 
rr sia ito de m7 
Po | INVERSE | Imagen negativa de escritura 55 
| A [|LtET__ | Asignación a variable ___| 0 | 
Pl” [| LINE INPUT | Orden de entrada ampliada —_| 0 | 
| A [NEXT | Final deunbucle ______ "60 | 
[NORMAL [| Imagen escritura normal | | 
jp | ON ERROR | Tratamiento de error_____________ñ| 0 | 
jp [0N...GOSUB |  Bifurcación múltiple ________| 0 
j [ON...GOTO | Bifurcacion múltiple "40 | 
A EOI TE TV: EA A 
E [POKE |  Inscribirenmemria "40 | 
[A | PRINT___ | Salida por pantalla _______| 0 | 


palo 


Efecto 
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30 
13 


= a 
DECIME EECEEIn 
A > 

se ME 

< 
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Comandos de programa BASIC 


Cil 6 A 


are PRINT LM Salida formateada 


| Leer variable. | 


A 
|__ A _ | RESTORE |_ Leer nuevos datos "0| 
RESUME | Finalizar tratamiento errores | | 


Longitud de paso en bucle 


|_ Conectar prueba | 
| [VIAB” | Tabulador vertical || 
po [WAIT | Espreadeprograsaa || 
[WHILE [| Bucle condicionado ud 


| 
DE Final de bucle condicionado E 
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NN 
> 


NEoIGoSO a 


T 
co 
Z 
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Comandos de programa BASIC 


>=" absoluto 

rr rr O 
A A a 
E |CoBL(X) | Doble precision_______ | 
E TO CI MM 
ll” | CINT(X) | Integerdex_____________ | | 
OS 
Pp [CSNG(X) | Precision sencilla _____| | 
f [ERL— | Numero de l¡nea con error_______| 0 | 
MOTA EAS O OEA 
[ [Fix(x) | Suprime cifras despues de la coma | 0 
pl [fN | Función definida por el usuario | 0 | 
REACCION 
erp ipacto Libre de menoria strin___— 


Posición de Af en B LO | 
— OS X Valor integer de X O | 


| [ LEFTS(X$,X) | Separa X de la izquierda __[|0 | 
l [HLEN(Xs) | tongituddexs ________ "60 | 
| A |L0G(x) _ | Logaritmo natural |(0 | 
Eq] | fogarttm de base diez______ 19 
| Memoria libre  __________ |8Q | 
— A B caractere eN 
retó 1 Contenido pesteion 
pententdo postelon Y 


EA Se para X e la derecha ¡(0 | 
A | RND(X) | Número aleatorio "40 | 
USGN(X) | Sign ————————— |] 


A | : 0 
A E CT E E dí 
o A 


ON STRING Y,X Inserta Xx veces el ASCII Y DAS 
| [STR$(X) | Convierte número en string |60 | 
E | STRS(X) | Convierte número en string po] 
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Q 
a 
Eee lll del lll Ellie fl Jl 


Glosario 


A 

acceso libre 64,89 99,109 

ACORN BASIC 26,43 
almacenamiento datos 60,88,98,109 
almacenamiento dinámico 14,25 
almacenamiento variables 30,83,92,103 
almacenamiento video 47 

análisis 147,159 

anidamiento 43,157,168 

ANSI-MIN BASIC 17,27,33 

AOS, método de cálculo 35 

apóstrofe 46 

Applesoft BASIC 81 

arcotangente 39 

argumento 39,111 

asignación 44 

at, signo comercial 39 

avance de línea 63 


B 

baud, cuota 57 

BCD número 15,18 
benchmark, test de 174 
bifurcación 44,118,131 
bifurcación multiple 45 
booleana, álgebra 34 
borrar 53,55 

bucle 118,126,137,145 
bucle 22,43,45,75,112, 
bucle de espera 160,168,173 
bus del sistema 58 


C 

cadena caracteres 102,112,141 

cadena caracteres 26,27,30,38,82,92, 
campo 28,43,71,156,189 

campo unidimensional 60,156 

carácter de control 15,52,54,63,138,200 


cassettes, manejo de 59,86,98,109,163,192 


CENTRONICS, interfase 58,108 
código ASCII 15,53,95,119,183,200,209 
código de caracteres 48,87,95 
código de pantalla 15,48,86,95,114,203 
color de caracteres 77 

color de fondo 77 

color, órdenes de 15,77 

columna 45 

coma 37,45,62,118 

coma flotante, calculo 12,26 
comando 13,33,71 

comando de contro! 54,74,91 
comando de control 93,183,198 
comandos, código de 16 
comentario 14,21,147,182 
comillas 

compilador 

condensar 

contador binario 

contador de bucle 

contador de byte relativo 
controlador 

conversión 73,82,91,111,140,181 
conversión de números 141 
corrección 71 

coseno 39 

CTRL, tecla 54,82 

cursor 14,53,83,93,106,112, 
cursor 120,138 

cursor, comandos 22,53,74,91, 
cursor, comandos 93,183 

cursor, posición de 53,120 


D 

decisión S/NO 135 

decisión, comandos 134,136 
decisión, comandos 44,118,132, 
declaración 14,22,25 
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DELETE, tecla 53,92 
diálogo 13 


dimensionado 15,27,30,43,112,156 


dirección secundaria 98 
disco BASIC 105 


diskettes, manejo 23,64,98,109,194 


disposición pantalla 47,84,95,106 
división, signo de 35 

doble cruz 36,38,101 

dólar, signo de 26,38 

DOS 64,105 

dos puntos 38,118 


E 

EDITOR 23 

editor de pantalla 53,92 
ejecución del programa 32,70,152 
enlace lógico 37,131,135,143 
error 23,44,69 

error de redondeo 15 

ESC, tecla 54,63,82 

escribir 62,89,99 

espacio, espaciador 21,126 
espacios vacíos 14,21 
esperar 000 

estrucura 21,22,150 
exclamación, signo de 38 


F 

fichero 88,98,109 

fichero relativo 99 

fichero secuencial 64,88,98,109 
fichero, nombre 88,98,109 
flecha, tecla 54,82,93,106 
función 39,66,72,113,121,123 


Glosario 


función hiperbólica 39,72 
función numérica 39 
función string 41,114,120,124,141 


G 

G-DOS 109,167 

Garbage collection 25 

gráficos alta resolución 74,81 

gráficos, comandos 15,73,129 

gráficos, signos 51,53,73,91,95,108,1 15 


H 
hardcopy 116,149 


I 

IEC interfase 53,98 

impresora 108,111,197 
impresora 23,33,51,58,62,92,99, 
indicación del programa 42 
indicador de tiempo 93 

indice, modificación del 145 
inicialización 166 

INSERT, tecla 53,92 

insertar 53 

integer 27,102,165 

INTEGER BASIC 12 

interfase 57,60 

interprete 13,29,47 
interrogación, signo de 39,45 
interrupción del programa 14,44,69,92 
inverso, video 22,55,81,93,95 


J 
juego de caracteres 50,84,96,108 
juego de datos 88,99 
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¡A 

label 18,22,43 

leer 62,89,99 

lenguaje máquina 13,15,16,82,129,149 
líneas, trazar 74 

lista de ejecución de líneas 152,164 
logaritmo 40 

longitud de línea 19,82,92,95,102 


M 

máscara 138,144 

máscara de entrada 138 

máscara, generador de 138 

matrices 48,72 
mayúsculas/minúsculas 15,21,96,108,141 
memoria de pantalla 47,84,94,107 
memoria externa 14,33,192 

memoria, composición de 29,1 49 
menu 137,163,195 

mochila 149 

modo de texto 74,95 

módulo 152,173 

módulo de programa 150,159,163,173 
muestra de puntos 48 ,74,76 
multiplicación, signo de 35 


N 

negación 37 

NEWDOS 109,167 

nombres de variables 15,25,27,43, 
nombres de variables 112,155 
número aleatorio 40,125,155,189,206 
número complementario 41,84,133 
número de fichero lógico 98 
número de línea 13,19,71,133 


número de periferico 98 
número entero 12,26,83,103 
número primo 174 


0 

operación directa 13,16,165 
operador aritmético 34 

operador de comparación 132,134 
operador de comparación 34,35,82, 
operador lógico 34,134 

OR, enlace 37,135,136 
organigrama 152,164 


P 

paneles de figuras 77 
paréntesis35,111 

pixel 74 

porcentaje, signo de 38,82,1 13 
potencia, signo de 35,108,113 
precisión doble 26,30,101, 
precisión sencilla 26,30,101 
PRINT, gráficos 73 

probar 23,71,157 

programa de ayuda REF 167 
programa operativo 13,53 
programa spaghetti 22 
programa, operación por 13 
punto 37 

punto y comu 38,45,139 
puntuación, signos de 14,37,118 


R 

radianes 39 

raíz cuadrada 40 
random, fichero 64 


222 Glosario 
redondeo 105,120 T 

reserva 15,27,101 tabulador 41 
resta, signo de 35 tangente 39 


resto de un cociente 122,145 
retardo de tiempo 160 
retroceso 14 

RETURN, tecla 13,44 

RS 232 C 57,98 


Ss 

salida formateada 45,105,120 
salida, canal de 60,99,194,199 

salto, objetivo del 21,44,159,182 
salto, orden de 44 

SCALE, factor 77 

seno 39 

separación, signos de 37,45,62,89, 
separación, signos de 99,109 
shapetable 77 

sistema decimal 13,37 

sistema operativo 24,47,57,91 
sistema operativo diskettes 16,23,64 
slot 81,86,199 

statement 19 42 

string vacío 44,139,142 
subprograma 43,46,120,152,159,168 
suma, signo de 35,37 

SYSTEM BUS 58 


tecla de borrado 53,119 
teclado 14,50,111 
time-sharing 11 

TINY BASIC 12 

tipos de variables 109,154,165 
TOKENS16 

tonos, comandos de 15,79 

tope de teclado 92 

TRACE, operación 71 
tratamiento de bit 143 
tratamiento de errores 69,105,129 


 TRSDOS 109 


U 
User port 58,98 


vV 

V-24, interfase 57 

valor ASCII 35,63,119,1 40,141 
variable 25,112 

variable campo 27 

variable control 43,137,146,155,158 
variable local 25 

variables, lista de 109,154,165 
ventana de pantalla 56,86,97 
ventana de prueba 55,86 


Josep Tinto Espelt 


- GEM 


El despacho electrónico 


GEM El despacho electrónico 
2600 ptas. - 184 páginas 
ISBN 84-7704-016-8. 


El producto GEM (Graphics Environment Manager, 
es decir Gestión de Entorno Gráfico), de la firma 
Digital Research, representa un paquete de gestión 
profesional, de gran sencillez de manejo y de gran 
potencia y portabilidad. 

A través de técnicas de íconos y ventanas, el usuario 
se encuentra en un entorno agradable de trabajo, con 
una herramienta que llega a ser imprescindible para 
el hacer diario. Su importancia en el área 
profesional es decisiva, y el futuro prometedor, dado 
que varias casas de software se encuentran ya 
desarrollando ampliaciones al paquete básico. Este 
paquete de programas, desarrollado inicialmente 
para ordenadores PC y compatibles, existe ya en 
versiones para otras gamas de ordenadores, como por 
ejemplo Atari 520 ST, ICL, etc. 

Josep Tintó Espelt, el autor, es un técnico de 
conocida trayectoria profesional, gran conocedor del 
producto GEM, y que ha desarrollado este libro con un 
lenguaje ameno y sencillo, acompañando los textos con 
múltiples figuras, todas ellas confeccionadas con el 
propioGEM, para obtener un libro de introducción que 
resulte de fácil lectura. 


DBASSE lll - Práctico y conciso 
2100 ptas - 172 páginas 
ISBN 84-7704-007-9 


El Dbase Ill es una base de datos especialmente 
desarrollada para ordenadores personales con la que 
es posible procesar datos y solucionar eficientemente 
problemas de organización empresarial con 
relativamente poco gasto. 

El libro explica-por capítulos de menor a mayor grado 
de dificultad el lenguaje utilizado en esta base de 
datos. Se concibió de tal forma que el lector puede, 
tras una breve introducción, trabajar prácticamente 
desde un principio con el dBase III. 

El lector aprende cómo crear, modificar, analizar, 
clasificar e indexar ficheros, cómo visualizar en 
pantalla e imprimir los análisis y cómo construir y 
trabajar con ficheros secuenciales. 


REDES LOCALES 
PRACTICO Y CONCISO 
1600 ptas. - 128 páginas 
ISBN 84-7704-011-7 


Una nueva revolución en el mundo de los 
ordenadores, ha constituido la implementación 
de las redes de comunicaciones. En tanto que en 
la mayoría de los países existen monopolios a 
nivel nacional, que poseen el control total sobre 
el funcionamiento de redes de comunicaciones, un 
gran número de empresas ha optado' por la 
instalación de redes locales, es decir en el 
propio edificio o solar. 
El ¡interesado en la aplicación de este tipo de 
tecnología de redes puede adquirir a través 
de este libro los conocimientos básicos sobre 
tipos, arquitectura, funcionamiento en 
general y costes de las redes de comunicación. 
Nos dirigimos en especial a aquellos lectores que se 
Volígang R-Diemer — encuentran ante la alternativa de instalar una 
Redes locales —— red de ordenadores y cual de las múltiples 
práctico y conciso —— posibilidades es la adecuada para sus necesidades. 


Desde la solución monousuario - 
hasta la estructura de red A 


Los objetivos de este libro son: 

* Proporcionar información sobre redes de 
comunicación, terminología y particularidades. 
* Ofrecer al lector una visión general sobre 
las posibilidades de interconexión de 
microordenadores y dispositivos periféricos a través 
de redes de comunicación. 

* Exponer criterios de comparación de redes para la 
DATANE TL selección del equipo adecuado según las necesidades 
del usuario. 


COMPARACION DE VERSIONES BASIC 
2100 ptas. - 242 páginas 
ISBN 84-7704-016-8. 


Este libro está dedicado especialmente para los 
amigos de los ordenadores, que sin tener la 
programación como profesión, son entusiastas en 
la resolución de problemas. El libro ofrece a los 
programadores que desean publicar o intercambiar 
programas los conocimientos necesarios sobre la 
modalidad operativa de otros ordenadores ayudando 
de esta forma a transferir programas de fuentes 
DATANET diferentes, al sistema propio, sin mayores 
dificultades. 
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APRENDA A 

VOLAR CON SU ORDENADOR 
2200 ptas - 192 páginas 

ISBN 84-7704-002-8 


Solamente volar de verdad es más bonito. 
Consuordenador personal u ordenador doméstico y el 
Flighsimulator, puede vivir esta experiencia en su 
casa. 

El libro describe con amplitud los principios del 
vuelo aéreo necesarios para dominar el programa 
Flighsimulator de Sublogic y Microsoft en el Apple 
11, IBMPC y Commodore 64. Visualiza en pantalla las 
maniobras y procesos estándar de vuelo; y ofrece 
planos aéreos de puertos conocidos y extractos de 
rutinas aéreas originales. 

Con estas ayudas tan profesionales, incluso el más 
inexperto adquiere una clara visión del vuelo aéreo. 
Después de un poco de práctica dominará el 
Flighsimulator, podrá comprender el proceso de 
despegue, planear con éxito las aproximaciones y 
vivir los "happy landings" (felices aterrizajes) con 
cualquier otro programa de simulación de vuelo. 


PROGRAMACION DE GRAFICAS DE 

2 Y 3 DIMENSIONES 

2400 ptas - 242 páginas 

ISBN 84-7704-005-2 

Los gráficos de ordenador son hoy en día de suma 
importancia en el campo técnico-científico y de la 
economía: Las gráficas de empresa informan sobre el 
desarrollo de las ventas y los balances; y pruebas de 
mediciones técnicas se representan condiagramas de 
funciones. 

Con las informaciones conseguidas se encarga el 
ordenador del hasta ahora laborioso análisis de las 
cifras. 

El método de las gráficas vectoriales se basa en 
procedimientos geométricos sencillos. Conocerlo le 
permitirá al programador entrar en el fascinante 
mundo de las gráficas de ordenador. Este libro ofrece 
una amplia visión de la programación de aplicaciones 
gráficas y gracias a múltiples reproducciones y 
programas sirve como obra de consulta para el 
programador. 

Se tratan las formas básicas de las gráficas de 
empresa y sus aplicaciones, se expone un sistema para 
la programación de gráficas de presentación. Un 
capítulo entero está dedicado a los principios 
básicos de las gráficas tridimensionales. 


WORD PRACTICO Y CONCISO 
1600 ptas. - 147 páginas 
ISBN 84-7704-016-8. 


Microsoft WORD es un tratamiento de textos 
moderno y profesional que ofrece una amplia gama de 
funciones sin dejar de ser sencillo de manejar. 
WORD 2.0 existe para el IBMPC, IBM PC/XT, 
ETE IBM PC/AT y sus compatibles. 

y sus compatibles Este libro que debe ocupar un sitio junto al 
ordenador, contiene una descripción de las funciones 
y características más importantes del WORD, así 
como numerosos consejos e indicaciones para la 
aplicación práctica. Está dirigido a directivos, 
secretarias, escritores, profanos interesados y otros 
principiantes que desean dominar en el mínimo tiempo 
posible el WORD, para poder realizar tratamientos de 
texto sin dificultad y sin tener que consultar 
continuamente el manual. 


INGENIERIA DE SOFTWARE 
PRACTICO Y CONCISO 

1600 Ptas - 122 páginas 

ISBN 84-7704-012-5 


La expresión Ingeniería de Software se refiere a 
los procedimientos técnicos similares al método 
utilizado por un ingeniero, en el desarrollo de 
software. Trataremos por ello en este libro los 
métodos de organización de tiempo y contenido del 
proceso de desarrollo, la confección de modelos y la 
determinación del tipo de procedimiento mediante la 
utilización de métodos específicos, así como las 
herramientas de ayuda para la documentación de los 
resultados, es decir, las técnicas de representación. 


ET > Para la aplicación del sistema de ingeniería de 
cala de Sole software existe un argumento fundamental, la 
-  prácticoyconciso. —— relación de costes y calidad. En el presente libro 

== se expone con lenguaje comprensible, el método 

ona de represión utilizado en el desarrollo de software para 

ES obtener productos con las siguientes 
características: 


- Fiabilidad en relación a la estabilidad técnica 
así como la resolución correcta de tareas 
concretas. 

- Buena operatividad y versatilidad 

- Facilidad de transferencia a otros sistemas 

- Posibilidad de comprobación y flexibilidad. 


MS-DOS / PC-DOS 
PRACTICO Y CONCISO 
1800 ptas. - 141 páginas 
ISBN 84-7704-015-X 


Debido a la entrada de IBM en el mundo de los 
ordenadores personales y el esfuerzo de los 
fabricantes de los denominados compatibles, el 
sistema operativo MS-DOS, asi como la 
correspondiente versión IBM PC-DOS de la firma 
Microsoft se ha convertido de la noche a la mañana en 
el estándar para el área de 16 bits. 

Este libro establece un puente para que el usuario 


E METO Ren llegue a una mejor comprensión de su sistema 
=MSDOS/PC-DOS — DOS/PC-DOS — operativo y adquiera rápidamente conocimientos que 
== práctico y conciso —— le permitan un manejo mas fácil de su PC. No 
o representa en ningún caso un substituto del 

IBM PC y compatibles TR 

MPCycompatibles_____— manual, pero se ocupa de problemas y 


preguntas características, como p.ej. los problemas 
de compatibilidad, las diferencias entre las diversas 
versiones del MS-DOS etc. 

Dada las peticiones de un gran número de usuarios del 
MS-DOS hemos incluído la descripción de los 
programas de utilidad "EDLIN" y "DEBUG". 
Además encontrará una representación resumida de 
todos los comandos MS-DOS así como un glosario de 
importantes términos técnicos. 


TEST DE CONOCIMIENTOS 
SOBRE MICROORDENADORES 
Volumen 1: Hardware 

1600 ptas - 143 páginas 

ISBN 84-7704-008-7 


Si desea Ud. adquirir y ampliar sus conocimientos 
sobre microordenadores, sin esfuerzo y casijugando, 
los tomos "Test de  comocimientos sobre 
microordenadores" (Volumen 1: Hardware, 
Volumen 2: Software) es lo que Ud. necesita. 

Sin tener que estar sometido a la rutina de un árido 
libro de texto, podrá entrar, a través del método 
Trial-and-Error, en el fascinante mundo de los 
microordenadores. : 

Las 83 preguntas pueden ser contestadas -teniendo 
algunas nociones de hardware -, incluso si (todavía) 
no se ha trabajado con el volumen 1: Software. 


—— Host on Line — 


El ordenador en la - 
pequeña empresa 


Guía para la óptima solución informática 


TEST DE CONOCIMIENTOS 
SOBRE MICROORDENADORES 
Volumen 2: Software 

1800 ptas - 167 páginas 

ISBN 84-7704-009-5 


Si desea Ud. adquirir y ampliar sus conocimientos 
sobre microordenadores, sin esfuerzo y casi jugando 
los tomos "Test de conocimientos sobre 
microordenadores" (Volumen 1: Hardware, 

Volumen 2: Software) es lo que Ud. necesita. y 
Sin tener que estar sometido a la rutina de un árido 
libro de texto, podrá entrar, a través del método 
Trial-and-Error, en el fascinante mundo de los 
microordenadores. 

Las 96 preguntas pueden ser contestadas - teniendo 
algunas nociones de hardware -, incluso si (todavía). 
no se ha trabajado con el volumen 2: Hardware. 


HOST ON LINE 
2200 ptas. - 176 páginas 
ISBN 84-7704-017-6 


Con el ordenador personal puede accederse a un cada 
vez mas amplio mundo de comunicación e infor- 
mación en forma de bancos de datos y Mailbox. 
Como debe conectar su PC a un ordenador mini o 
grande? Este libro contiene proposiciones 
comprobadas en la práctica para la realización de 
la comunicación ordenador-ordenador y describe 
especialmente el software necesario para ello. 
Una pequeña colección de ejemplos y direcciones 
les facilita además primeros contactos para pasos 
propios al mundo de los lenguajes interactivos y 
conferencias por ordenador. 


EL ORDENADOR EN LA 
PEQUEÑA EMPRESA 
1600 ptas. - 148 páginas 
ISBN - 84-7704:014-1 


Esta guía práctica ayuda a la implantación de un 
sistema informático en la pequeña empresa (oficina, 
tienda, taller, laboratorio, consultorio médico, 
etc.). No son necesarios conocimientos especiales. 
Se explica todo lo imprescindible para el inicio 
del sistema, como procedimientos de trabajo, 
programas (Software) y dispositivos (Hardware). 
Listas de chequeo y formularios de muestra 
ayudan en el equilibrio sistematizado del camino 
hacia su "Solución a medida". 


APRENDA A UTILIZAR CON MAS 
EFICACIA EL LOTUS 1-2-3 

1800 ptas - 144 páginas 

ISBN 84-7704-001-X 


Este libro trata el paquete de software Lotus 1- 
2-3 que pone a disposición del usuario una hoja de 
cálculo y un sistema de banco de datos. 
Principiantes en las hojas de cálculo, pero también 
aquellos que ya han trabajado con Visicalc 
o Multiplan, aprenderán todo lo importante sobre 
comandos y funciones. Comienza con la construcción 
de unas tablas; los comandos están ordenados de 
menor a mayor grado de dificultad. 

Con los conocimientos que se van adquiriendo y la 
ayuda de una serie de ejercicios prácticos, el lector 
estará cada vez más capacitado para aplicar los 
numerosos comandos necesarios para crear los 
cálculos para resolver los problemas profesionales y 
privados. 


APRENDA A UTILIZAR CON MAS 
EFICACIA EL LOTUS SYMPHONY 
2200 ptas - 227 páginas 

ISBN 84-7704-000-1 


El Symphony es uno de los paquetes de software 
más variado e integrado que existe para IBM 
PC/XT/AT y ordenadores compatibles. Pone a 
disposición del usuario funciones de fácil manejo 
como son hoja de cálculo, gráficos, proceso de 
textos, banco de datos, comunicaciones con otros 
ordenadores, así como la creación de aplicaciones en 
un lenguaje de programación especialmente creado 
para este sistema. 

El libro hace en primer lugar, una presentación del 
hardware necesario y explica después la forma de 
instalarel Symphony asícomo los programas tutores y 
funciones de ayuda. A continuación son descritas las 
partes principales del programa. Con muchos 
ejemplos y explicaciones de todos los comandos, el 
lector aprende también a resolver por sí mismo 
trabajos difíciles y extensos. Las ampliaciones de la 
nueva versión 1.1 han sido tomadas en consideración 
lo más posible. 

Este manual va dirigido a todos aquellos que quieren 
pasar del Lotus 1-2-3 o cualquier otro programa a 
este programa. Aparte de esto el libro es de 
excelente ayuda a la hora de familiarizarse con la 
filosofía y las posibilidades del Symphony incluso 
antes de adquirir el programa. 
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TURBO PASCAL 
Versión 1.xx hasta 3.xx 
2600 ptas, 306 páginas 
ISBN 84-7704-006-0 


En comparación con otros dialectos del PASCAL, el 
TURBO PASCAL es un lenguaje eficiente y muy 
sencillo de aplicar. Además es un compilador 
popular interesante para cualquiera. 

El desarrollo de los programas, su estructura y la 
descripción, con todos sus ajustes, del lenguaje 
(también gráficos, gráficos Turtle, Windows) están 
dirigidos a estudiantes y programadores aficionados. 
Los diagramas de sintaxis facilitan una correcta 
programación. Existen casos prácticos como 
estímulo y ejercicio. 

Para programadores de aplicaciones es una obra de 
consulta clara y completa. Contiene informaciones 
sobre PASCAL 8087, PASCAL BCD, portabilidad, 
desarrollo de programas, eliminación de errores, 
bibliotecas módulo, overlays, redireccionamientol/O, 
programación en lenguajes prácticamente de 
máquina y software tools (control  ISAM, 
clasificación y adaptación a pantalla). 


O AAA 


Este libro está dedicado especialmente para los amigos 
de los ordenadores, que sin tener la programación como 
profesión, son entusiastas en la resolución de problemas. 
El libro ofrece a los programadores que desean publicar 
ointercambiar programas los conocimientos necesarios 
sobre la modalidad operativa de otros ordenadores 
ayudando de esta forma a transferir programas de 
fuentes diferentes, al sistema propio, sin mayores 
dificultades. 


Y 


EDITORIAL VOGEL 
Wuúrzburg 


Un libro editado por 
DATANET S.A. 


